uses crt; var n,i: longint; xh: boolean; function KT(n: longint):boolean; var i: longint; begin if ((n = 0) and (n = 1)) then exit(false); for i:=2 to trunc(sqrt(n)) do if (n mod i = 0) then exit(false); exit(true); end; begin clrscr; write('Nhap so n: '); readln(n); write('Cac so gan nguyen to la: '); i:=1; xh:=false; while (i*i <= n) do begin if (KT(i)) then begin write(i*i,' '); xh:=true; end; inc(i); end; if (xh=false) then write('Khong co so nao la so gan nguyen to.'); readln; end.
