[DEKLARATION:PRIMZAHL FELD(1..1000)VON GANZ
N,ZAEHLER GANZ
ZEIGER FELD(1..4)VON ZEICHEN]
BEGINN
N:=1
PRIMZAHL(1):=2;
FUER  ZAEHLER:=3 BIS2000 SCHRITT 2
 FUEHRE @ TEST(ZAEHLER,ZEIGER)
WENN ZEIGER="JA"
DANN BEGINN N:=N+1
PRIMZAHL (N):=ZAEHLER
ENDE
AUS