1234

var a, b, c, n: Integer;
pr, sq1, sq2: Real;
begin
n:=100;
while n<=999 do begin
a:=n div 100;
b:= n mod 100 div 10;
c:= n mod 10;
pr:=a*b*c;
sq1:=sqrt(a*10+b);
sq2:=sqrt(b*10+a);
writeln(n);
if (pr=sq1) or (pr=sq2) then begin
writeln(n);

end;
n:=n+1;
end;
end.