Contributor: SWAG SUPPORT TEAM { >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.