uses crt;
var i:integer;
function isSquare(n:longint):boolean;
begin
if (n>=0) and sqr(trunc(sqrt(n)))=n then isSquare:=true else isSquare:=false;
end;
begin
clrscr;
for i:=1 to 500 do if isSquare(i) then write(i,' ');
readln;
end.
uses crt;
var i:integer;
function isSquare(n:longint):boolean;
begin
if (n>=0) and sqr(trunc(sqrt(n)))=n then isSquare:=true else isSquare:=false;
end;
begin
clrscr;
for i:=1 to 500 do if isSquare(i) then write(i,' ');
readln;
end.