Directory of image this file is from
This file as a plain text file

[DEKLARATION:
PRIMZAHL     FELD(1..500) VON GANZ
N,ZAEHLER     GANZ
ZEIGER     FELD(1..4) VON ZEICHEN ]

BEGINN
   PRIMZAHL (1) := 2;
   N :=1;
   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 := 1 BIS N
         MACH SCHREIBE ZAEHLER,PRIMZAHL(ZAEHLER)
ENDE;
@ TEST(ZAEHLER,ZEIGER):BEGINN
[DEKLARATION:
TEILER: GANZ]
TEILER := 3;
SOLANGE TEILER <= SQR(ZAEHLER) UND ZEIGER = "JA"
TUE WENN TEILER TEILT ZAEHLER
    DANN ZEIGER := "NEIN"
    SONST TEILER := TEILER +2
ENDE