PROGRAM PRIMZAHL (OUT);
CONST
  N=1000;
VAR
  FELD:ARRAY [1:N] OF INTEGER;
  I,Y,A,S:INTEGER;
(*---------- Hauptprogramm ----------*)
BEGIN
  FOR I:=1 TO N DO FELD[I]:=I*2+1;
  FOR I:=1 TO TRUNC (SQRT (N)) DO BEGIN
    Y:=I;A:=FELD[I];
    IF FELD[I]<>0 THEN BEGIN WRITELN(FELD[I]);
      REPEAT FELD[A+Y]:=0;
             Y:=Y+A;
      UNTIL  (A+Y)>=N
    END;
  END;
  FOR I:=TRUNC (SQRT (N)+1) TO N DO
    IF FELD[I]<>0 THEN WRITELN(FELD[I])
END.