uses crt;
var
  i, j, n: longint;
label l;
begin clrscr;
  write('N=');
  readln(n);
  for i:=2 to n do
  begin
    for j:=2 to trunc(sqrt(i)) do
      if i mod j=0 then
        goto l; { Ну и как здесь без goto? :)))) }
    write(i, ' ');
  l:
  end;
  repeat until keypressed
end.