Algorittimo di fibonacci in pascal!

Listato:

USES CRT;
var
n: integer;
 
function fibo(n: integer): integer;
  begin
    if n=0 then
      fibo := 0
    else
      if n=1 then
        fibo := 1
      else
        fibo := fibo(n-1)+(n-2);
end;
 
begin
  clrscr;
  writeln('Serie di fibonacci f(0)=1 f(1)=1 f(n)=f(n-1)+(n-2)');
  writeln('Inserire n:   ');
  readln(n);
  writeln('Fibonacci di ', n,' Å  ', fibo( n ));
  readln;
end.