wie berechnet man die fakultät mit for-to-do-schleife?

[Oxmyx]

Delphi-Quellcode:

Ergebnis := 1;
for i := Zahl downto 1 do
  Ergebnis := Ergebnis * i;