Var i, n: word;

Function isNt(x: word): boolean;

   Var j: word;

   Begin

       For j:=2 to trunc(sqrt(x))

               do if (x mod j =0)

                      Then exit(false);

       Exit(true);

   End;

Begin

    Write('n = '); readln(n);

    For i:=2 to n do if isNt(i)=true

          Then write(i, ' ');

    Readln

End.

program nguyen_to;

uses crt;

var n,i,d,j: integer;

Begin

         clrscr;

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

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

         for i:=2 to n do

         begin

                  d:=0;

                  for j:=1 to i do

                  if i mod j=0 then d:=d+1;

                  if d=2 then write(i,'  ');

         end;

         readln

End.