6 lines
109 B
Text
6 lines
109 B
Text
|
PROC factorial = (INT upb n)LONG LONG INT:(
|
||
|
|
LONG LONG INT z := 1;
|
||
|
|
FOR n TO upb n DO z *:= n OD;
|
||
|
|
z
|
||
|
|
); ~
|