12 lines
205 B
Text
12 lines
205 B
Text
|
PROCEDURE FactIter(n: CARDINAL): CARDINAL =
|
||
|
|
VAR
|
||
|
|
result := n;
|
||
|
|
counter := n - 1;
|
||
|
|
|
||
|
|
BEGIN
|
||
|
|
FOR i := counter TO 1 BY -1 DO
|
||
|
|
result := result * i;
|
||
|
|
END;
|
||
|
|
RETURN result;
|
||
|
|
END FactIter;
|