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.