program primes;   { Sieb des Eratosthenes }
uses crt;

const N = 2000;
var   a   : array[1..N] of boolean;
      i,j : integer;

begin
  clrscr;
  a[1]:=false;
  for i:=2 to N do a[i]:=true;
  for i:=2 to N div 2 do
    for j:=2 to N div i do a[i*j]:=false;

  for i:=1 to N do  if a[i] then write(i:4 , ' ');
  readln;
end.