program chinh_phuong;
Uses crt;
var i:integer;
{---ham-chinh-phuong---}
function ktcp(x:integer):boolean;
begin
if sqr(trunc(sqrt(x)))=x then ktcp:=true esle ktcp:=false;
end;
{---Chuong-trinh-chinh---}
BEGIN
clrscr;
for i:=1 to 99 do {Vì nhỏ hơn 100}
if ktcp(i) then write(i,' ');
readln;
end.