Определить, является ли число автоморфным, т.е. квадрат этого числа заканчивается этим же числом, например, числа 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.