function IterativeFactorial(n : Integer) : Integer;
var
   i : Integer;
begin
   Result := 1;
   for i := 2 to n do
      Result *= i;
end;