[DEKLARATION:   PRIMZAHL: FELD(1..500) VON GANZ
                 N,ZAEHLER,X, TEILER   VON GANZ
               ZEIGER: FELD(1..4)      VON ZEICH]
BEGINN
SCHREIBE"DIESES PROGRAMM DRUCKT ALLE PRIMZAHLEN UND 
SCHREIBE"PRIMZAHLZWILLINGE VON 1 BIS :"!;LIES X;
N:=1;
PRIMZAHL(1):=2;
SCHREIBE"2";
FUER
FUER ZAEHLER :=3 BIS X SCHRITT 2
                 FUEHRE @TEST(ZEIGER,ZAEHLER)
                 WENN ZEIGER= "JA"
                 DANN BEGINN N:=N+1;
            PRIMZAHL(N):=ZAEHLER;
                 SCHREIBE ZAEHLER;
AUS ENDE
ENDE