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.

Với cái thuật toán này chấp lên 1 tỉ cũng được nữa, hihi.