function FFact(const N : integer { max = 1754}) : extended; var i : integer; begin result := 1; for i := 1 to N do result := result * i; end;