Pascal :

var
n,m:longint;

 begin
  readln(n);
  m:=n*n;
  if (m mod 10=n) or (m mod 100=n) or (m mod 1000=n) or (m mod 10000=n)
  then writeln(n,' ',m,' yes') else writeln(n,' ',m,' no');
 end.