program test_2012_2;
var m,n,i,j,s:integer;
d:array[0..100] of integer;
begin
readln(n);
for m:=10 TO n DO
begin
s:=m*m;
j:=0;
while s>0 DO
begin
j:=j+1;
d[j]:=s mod 10;
s:=s div 10;
end;
i:=1;
while (d[i]=d[j] ) and ( i<j) DO
begin
i:=i+1;
j:=j-1;
end;
IF i>=j then writeln(m);
end;
end.
输入：30

输出：11
22
26