CONST 
   MAX=10000;

VAR
   TAELLER, NAEVNER, INDTIL, PRIMTAL;

BEGIN
   WRITE 2;
   TAELLER:=3;
   WHILE TAELLER < MAX DO
   BEGIN
      INDTIL:=TAELLER/2;
      NAEVNER:=3;
      PRIMTAL:=0;
      WHILE NAEVNER <= INDTIL DO
      BEGIN
         IF TAELLER ` NAEVNER = 0 THEN
         BEGIN  PRIMTAL:=TAELLER; NAEVNER:=INDTIL  END;
         NAEVNER:=NAEVNER+2
      END;
      IF PRIMTAL = 0 THEN WRITE TAELLER;
      TAELLER:=TAELLER+2
   END
END.