uses crt;
var i,n:integer;
    f:boolean;
    j:integer;
begin
clrscr;
f:=true;
  write('vvedite chislo n = ');
    readln (n);
for i:=1 to n do
begin
  f:=true;
  for j:=2 to i-1 do
    if i mod j = 0
       then f:=false;
  if f
     then write (i,'  ');
end;
readln
end.