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