Viết chương trình tìm các số nguyên tố nhỏ hơn n,với n nhập từ bàn phím bằng chương trình con

uses crt;
var  n,i:longint;
f:array[1..10000000] of boolean;

procedure sang;
var i,j:longint;
begin
fillchar(f,sizeof(f),true);
f[1]:=false;
for i:=2 to trunc(sqrt(n)) do
 if f[i] then
  for j:=2 to n div i do
   f[i*j]:=false;
end;

begin
clrscr;
readln(N);
sang;
for i:=2 to n do
 if f[i] then write(i,' ');
readln
end.

Tham khảo chương trình:
`@` Pascal `:`

uses crt;
var
    n,k : int64;
    function snt( a : int64 ) : int64;
        var j : longint;
            begin
            snt := 0;
            for j := 2 to a - 1 do
                if a mod j = 0 then
                    begin
                    snt := 1;
                    exit;
                    end;
            end;
begin
clrscr;
    k := 1;
    read(n);
    while k < n do
        begin
        inc(k);
        if snt(k) = 0 then write(k,' ');
        end;

readln;
end.