SUCCESSIONE DEL FIBONACCI

Oggi a scuola in informatica il prof. ci ha spiegato la successione del Fibonacci:
Il programma seguente la produce:
program conigli;
var n:integer;
function fib(n:integer):integer;
begin
fib:=1;
if n>1 then fib:=fib(n-1)+fib(n-2);
end;
begin
for n:=0 to 13 do write(fib(n):5);
readln;
end.