Fibonacci por recursão

{ Fibonacci por recursao (Muito Lento)}
{ Joao Paulo Schwarz Schuler }
{ http://www.schulers.com/jpss }
{$X+}
function Fib(N:longint):longint;
{ Fibonacci por recursao (Muito Lento)}
begin
if N<=1
   then Fib:=N
   else Fib:=Fib(N-1)+Fib(N-2);
end;



var I:integer;
begin
for I:=0 to 35 do
    writeln(I:6,':',Fib(I):20);
end.