[DEKLARATION GANZ: ZAHL,TEILER]
BEGINN

LIES ZAHL
TEILER:=2

WENN  TEILER TEILT ZAHL UND ZAHL <> 2
DANN  SCHREIB "KEINE PRIMZAHL"
SONST     FUEHRE  TEILER:=3
          WIEDERHOLE  WENN TEILER TEILT ZAHL
                       DANN  SCHREIB "KEINE PRIMZAHL"
                         TEILER :=TEILER+2
           BIS  TEILER > SQR(ZAHL)
SCHREIB "ZAHL IST PRIMZAHL"
AUS;

ENDE