[DECLARATION: 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):=ZAEHLER
                      ENDE
        AUS;
       FUER ZAEHLER:=1BISN
        MACH SCHREIB ZAEHLER,"=", PRIMZAHL(ZAEHLER)
 ENDE