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.