var A,B,K,i:integer;
begin
Readln(A);
i:=1;
B:=A;
  While B>9 do
  begin
  i:=i+1;
  B:=B div 10;
  end;
  If (sqr(A) mod trunc(power(10,i))=A) then
  Writeln('Число автоморфное')
  else
  Writeln('Число не автоморфное');
end.