var i,a,b,c,d,e:longint;
begin
for i:=33 to 99 do
begin
a:=i*i;
b:=a mod 10;
c:=a div 10 mod 10;
d:=a div 100 mod 10;
e:=a div 1000;
if (b=c)and(d=e) then begin write(a);break;end;
end;
end.
/**************************************************************
	Problem: 1253
	User: admin
	Language: Pascal
	Result: Runtime Error
****************************************************************/