[DEKLARATION: PRIMZAHL FELD(1...1000) VON GANZ
                           N,ZAEHLER      GANZ
ZEIGER FELD(1..4)   VON   ZEICHEN]
BEGINN
      FUEHRE@TEST(ZEIGER,ZAEHLER)
      WENN ZEIGER = JA

               DANN BEGINN N:=N+1
                             PRIMZAHL(N):=ZAEHLER
                      ENDE
AUS
ENDE