Числа, у которых квадрат числа оканчивается на само число. Пример: 5 → 25, 6 → 36, 25 → 625, 76 → 5776.
p:=1;
{p - порядок цифр}
for ch:=n to m do
{n, m - интервал чисел}
begin
while p<=ch do p:=p*10;
if sqr(ch) mod p=ch then
write(ch, 'автоморфное число');
end;