program zadanie_1;
{uses crt;
       var
         x,n:integer;
       begin
            clrscr;
            writeln ('Введите Количество символов: ');
            readln (n);
            writeln ('');
 if n < 5 then
 writeln ('3')
 else
 write('3','  ','5','  ');
       if n>2 then
                       for x:= 2 to n do
   begin
                            if x mod 2 <> 0 then
                            if x mod 3 <> 0 then
                            if x mod 5 <> 0 then
                            if x mod 7 <> 0 then
                            if x mod 9 <> 0 then
                              write (x,'   ');
                    end
                   else
               writeln ('Символов >2 нет!');

repeat
until keypressed;
end.

program zadanie_1;
uses crt;

var
 x, j, n:integer;
 b: boolean;
begin
 clrscr;
 readln(n);
 for x := 2 to n do
   begin
     b := true;
     for j := 2 to x div 2 do
     b := b and (x mod j <> 0);
       if b then write(x:5)
   end;
 readln
end.