uses crt; var n,i:longint; {---Chuong-trinh-con---} function nt(i:longint):boolean; var j:longint; begin j:=2; nt:=true; while i mod j<>0 do inc(j); if j<>i then nt:=false; end; {---Chuong-trinh-chinh---} begin clrscr; write('Nhap n: '); readln(n); for i:=2 to n do if nt(i) then write(i,' '); writeln; readln end.
