9 lines
164 B
Text
9 lines
164 B
Text
PROC FACTORIAL(ARG) U;
|
|
BEGIN
|
|
ITEM ARG U;
|
|
ITEM TEMP U;
|
|
TEMP = 1;
|
|
FOR I:2 BY 1 WHILE I<=ARG;
|
|
TEMP = TEMP*I;
|
|
FACTORIAL = TEMP;
|
|
END
|