7 lines
141 B
Text
7 lines
141 B
Text
Procedure FibonacciReq(n)
|
|
If n<2
|
|
ProcedureReturn n
|
|
Else
|
|
ProcedureReturn FibonacciReq(n-1)+FibonacciReq(n-2)
|
|
EndIf
|
|
EndProcedure
|