5 lines
109 B
Text
5 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
|
|
); ~
|