А сколько факториалов вам надо рассчитать? Если один, то вам просто надо использовать
этот код:
Код:
function FacIterative(n: Word): Longint;
var
f: LongInt;
i: Integer;
begin
f := 1;
for i := 2 to n do
f := f * i;
Result := f;
end; Если много - то да, цикл в цикле.