5 lines
100 B
Text
5 lines
100 B
Text
PROC fact(x) IS IF x>=2 THEN x*fact(x-1) ELSE 1
|
|
|
|
PROC main()
|
|
WriteF('5! = \d\n', fact(5))
|
|
ENDPROC
|