program kaprekar;
Var i,k,n: integer;
Function kaprekar (n:longint): boolean;
Var ch: string;
x,y,d,e,l: integer;
Begin
str (sqr(n),ch);
l:= length (ch) div 2 ;
val(copy(ch,1,l),x,e);
val(copy(ch,l+1,length(ch)-l),y,d);
If x+y = n Then kaprekar:=true
Else kaprekar:=false;
End;
Begin
For i:=1 To 1000 Do
Begin
If kaprekar(i) Then writeln (i);
End;
End.