[DEKLARATION: TEILER ,ZAEHLER GANZ
                ZEIGER: FELD  (1..4) VON ZEICH ]
BEGINN
          TEILER:= 2;









 ZEIGER = "JA";
5L

          WENN TEILER TEILT ZAEHLE
          DANN ZEIGER:= "NEIN"
          SONST FUEHRE
                         TEILER:= 3;
                         SOLANGE TEILER  <= SQR (ZAEHLER) UND
                                 ZEIGER = "JA"
                              TUE WENN TEILER TEILT ZAEHLER
                                    DANN ZEIGER:= "NEIN"
                                    SONST TEILER:=  TEILER + 2
                AUS
ENDE