[DEKLARATION: PRIMZAHL FELD(1..500)VON GANZ
                         	        \                       N,ZAEHLER GANZ
              ZEIGER FELD(1..4) VON ZEICH]
 BEGINN
         N:=1;
            PRIMZAHL(1):=2;
                 FUER ZAEHLER:=3 BIS 2000 SCHRITT 2
            FUEHRE @TEST (ZAEHLER, ZEIGER)
                 WENN ZEIGER ="JA"
               DANN BEGINN  N:=N+1;
                            PRIMZAHL(N):=ZAEHLER0
                    ENDE
      AUS;
       FUER ZAEHLER:=1 BIS N
           MACH SCHREIB ZAEHLER,"=",PRIMZAHL(ZAEHLER)
ENDE