Viết chương trình liệt kê các số nguyên tố từ 1 đến n ( n là số nguyên dương và được nhập từ bàn phím )

program oken;
uses crt;
var n,i,j,dem: longint;
begin
    clrscr;
    write('Nhap n: '); readln(n);
    write('Cac so nguyen to tu 1 -> ',n,': ');
    for i:=1 to n do
        begin
            dem:=0;
            for j:=2 to (i div 2) do
                if i mod j=0 then
                    dem:=dem+1;
            if dem=0 then 
                write(i,' ');
        end;
    readln;
end.

program songuyento;
uses crt;
var n,i : integer;
function snt(x : integer) : boolean;
var d,i : integer;
begin d:=0;
for i:=1 to x do if x mod i = 0 then d:=d+1;
if d=2 then snt:=true else snt:=false;
end;
begin clrscr;
write('Nhap so n :'); readln(n);
write('Cac so nguyen to tu 1 den ',n,' la :');
for i:=1 to n do if snt(i) = true then write(i:3);
readln
end.