Дано двузначное число.Определить,равен ли квадрат этого числа сумме квадратов его цифр - Pascal ABC

var  a, n, n1: longint; begin  writeln('Введите n: ');  readln(n);  n1 := n;  a := 0;  while n <> 0 do   begin    a := sqr(n mod 10) + a;    n := (n div 10);  end;  if sqr(n1) = a then writeln('Квадрат числа n равен сумме квадратов его цифр')  else writeln('Квадрат числа n не равен сумме квадратов его цифр');end.