uses crt;
function Avto(n:longint):boolean;
var p,m:longint;
f:boolean;
begin
p:=n;
m:=n*n;
f:=true;
while (p>0)and f do
begin
if (p mod 10)<>(m mod 10) then f:=false
else
begin
p:=p div 10;
m:=m div 10;
end;
end;
Avto:=f;
end;
var a,b,i,k,n:longint;
begin
clrscr;
repeat
writeln('Введите натуральное число n=');
readln(n);
until n>0;
if Avto(n) then write('автоморфное')
else write('не автоморфное');
readln
end.