**[**Back to MATH SWAG index**]** **[**Back to Main SWAG index**]** **[**Original**]**

*{
>The problem is to Write a recursive Program to calculate Fibonacci numbers.
>The rules For the Fibonacci numbers are:
>
> The Nth Fib number is:
>
> 1 if N = 1 or 2
> The sum of the previous two numbers in the series if N > 2
> N must always be > 0.
}
***Function **fib(n : LongInt) : LongInt;
**begin
if **n < 2 **then
**fib := n
**else
**fib := fib(n - 1) + fib(n - 2);
**end**;
**Var
**Count : Integer;
**begin
**Writeln('Fib: ');
**For **Count := 1 **to **15 **do
**Write(Fib(Count),', ');
**end**.

**[**Back to MATH SWAG index**]** **[**Back to Main SWAG index**]** **[**Original**]**