Fakultät mit "repeat until" "

[Phoenix]

Delphi-Quellcode:

zahl := 1;
fakultaetvon := 5;
ergebnis := 1;

repeat
   ergebnis := ergebnis * zahl;
   zahl := zahl +1;
until zahl >= fakultaetvon;