program gan_nguyen_to;

Uses crt;

var n,i:integer;

function ktgnt(k:integer):boolean;

var j,d:integer;

begin

       d:=0;

       for j:=2 to trunc(sqrt(k)) do

              begin

                   if k mod j=0 then d:=d+1;

                   if d=2 then break;

              end;

       if d=1 then ktgnt:=true else ktgnt:=false;

end;

BEGIN

       clrscr;

       write('Nhap n: ');  readln(n);

       for i:=2 to n do

              if ktgnt(i) then write(i,' ');

       readln;

end.

• macketoi0326
• 15:37

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.