Also Hausaufgaben machen wir eher nicht.
Repeate doch so lange, bis die zahl von 1 auf den Zielwert gelaufen ist.
Achtung: Pseudocode! Der taugt so nicht, ist nur zum zeigen wie's geht:
Delphi-Quellcode:
zahl := 1;
repeat
inc(zahl);
until zahl >= fakultaet;