"Циклы с неизвестным числом повторений"

[obayashka]

надо решить 2мя способами.
Определить,яв-ся ли данное число автоморфным. Автоморфным наз.число,квадрат к-го заканчивается им самим. Например, автоморфным яв-ся число 6,т.к. его квадрат 36 заканчивается на 5,или 25 - его квадрат 625.
Спасибо заранее!

[obayashka]

извините,Например, автоморфным яв-ся число 6,т.к. его квадрат 36 заканчивается на "6"

[Shift_sk]

var a,b:integer;
begin
read(a);
b:=a*a;
if b mod 10 = a then writeln('da')
else writeln('no');
end.

[Shift_sk]

другой вариант решения чтот не приходит на ум!