Sirul lui Fibonacci – recursiv

>Sirul lui lui Fibonacci recursiv.

program fibo;
var n:integer;

function fib(n:integer):integer;
begin
if n=0 then fib:=0
else
if n=1 then fib:=1
else
fib:=fib(n-1)+fib(n-2);
end;

begin
write('n= ');
readln(n);
writeln(fib(n));
readln;
end.
{PascalZone.uv.ro}