repeat-until und for schleife Frage

[Dagon]

Ich habe mal zum Problem Nr. 2 (Produktbildung) eine kleine Rekursion geschrieben:

Delphi-Quellcode:

Function Fakultaet(n: Extended): Extended;
begin
  If n = 0 then
    Result := 1
  else
    Result := n * Fakultaet(n - 1);
end;