Program Ciurul;
               uses crt;
               var i, j : integer;
                   u : array[1..10000] of boolean;
                   n : word;
begin clrscr;
             Write('N='); readln(n);
             for i:=2 to n do
                             u[i]:=true;
             Write('Numerele prime sunt:');
             writeln;
             for i:=2 to n do begin
                                   if u[i] then begin
                                                     write(i:5);
                                                     j:=i;
             while j<=n do begin
                                u[j]:=false;
                                j:=j+i;
                           end;
                    end;
             end;
readln;
end.