4 lines
121 B
Text
4 lines
121 B
Text
PROCEDURE FACTORIAL(FACT,X%->FACT)
|
|
IF X%>1 THEN FACTORIAL(X%*FACT,X%-1->FACT)
|
|
END IF
|
|
END PROCEDURE
|