Определить, является ли число автоморфным, т.е. квадрат этого числа заканчивается этим же числом, например, числа 6, 25, 625 т.к. их квадратами являются числа 36, 625 и 390625.

Вот решение, не надо благодарностей)

Решение "по проще".
Var A,B : Integer;
Begin
  Readln(A);
  B:=sqr(A);
  While (A>0) and ((B mod 10) = (A mod 10)) do
  Begin
    A:=A div 10;
    B:=B div 10;
  end;
  Writeln(A=0);
end.