"Überprüfung ob Primzahl" kann nicht stimmen.
* die Repeat-Schleife wird
nur bei 0 verlassen
* das was in der Schleife ist, ist komplett sinnlos, weil niemals damit etwas gemacht wird
* "Zahl" kann sowieso niemals 0 sein
und bezüglich "Primzahlzwilling"
* man nehme das vorherige Ergebnis "IsPrime"
* und wenn ja, dann Zahl+2 und Zahl-2 prüfen, ob einwas davon auch eine Primzahl ist
Delphi-Quellcode:
for zahl := 1 to 50 do
begin
...
if zahl > 0 then
begin
Und überleg auch mal, ob diese Prüfung irgendeinen Sinn haben kann.
Oder andersrum, schau dir an, was die Ausgabe im ersten Post mit deiner Schleife
nicht gemeinsam hat.
