Tạo file sochinhphuong.inp trước nhé!
const fi='sochinhphuong.inp';
fo='sochinhphuong.oup';
var i,n:longint;
f:text;
function cp(x:longint):boolean;
begin
cp:=false;
if sqr(trunc(sqrt(x)))=x then cp:=true
else exit;
end;
begin
assign(f,fi);reset(f);readln(f,n);close(f);
assign(f,fo);rewrite(f);
for i:=1 to n do
if cp(i)=true then write(f,i,' ');
close(f);
end.
*Nếu số 0 là số chính phương thì bạn đổi "for i:=1 to n do" thành "for i:=0 to n do" nhé.