program ct;

uses crt;

var n,i,j:integer;

begin clrscr;

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

     i:=2; j:=3;

   write('2 ');

   while i<=n do

     begin

       k:=2;

     while(j mod k <>0 do

       k:=k+1;

       if j=k then

        begin

         i:=i+1;

         write(j,' ');

       end;

       j:=j+1;

     end;

readln;

end.

Học tốt!

progam snt;

uses crt;

var n, i, j, d: longint;

begin
        clrscr;

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

        write('Cac so nguyen to tu 1 den ',n,': ');

        for i:=1 to n do

        begin

                 d:=0;

                 for j:=2 to (i div 2) do

                 if i mod j=0 then

                   d:=d+1;

                 if d=0 then 

                 write(i,'  ');

        end;

        readln;

end.