RosettaCodeData/Task/Fibonacci-sequence/PureBasic/fibonacci-sequence-2.basic

8 lines
141 B
Plaintext

Procedure FibonacciReq(n)
If n<2
ProcedureReturn n
Else
ProcedureReturn FibonacciReq(n-1)+FibonacciReq(n-2)
EndIf
EndProcedure