10 lines
168 B
Text
10 lines
168 B
Text
|
PROCEDURE FactRec(n: CARDINAL): CARDINAL =
|
||
|
|
VAR result := 1;
|
||
|
|
|
||
|
|
BEGIN
|
||
|
|
IF n > 1 THEN
|
||
|
|
result := n * FactRec(n - 1);
|
||
|
|
END;
|
||
|
|
RETURN result;
|
||
|
|
END FactRec;
|