8 lines
125 B
Text
8 lines
125 B
Text
|
Procedure Factorial(n)
|
||
|
|
If n < 2
|
||
|
|
ProcedureReturn 1
|
||
|
|
Else
|
||
|
|
ProcedureReturn n * Factorial(n - 1)
|
||
|
|
EndIf
|
||
|
|
EndProcedure
|