Hogy működik a fibonaci algoritmus ha rekurziv módszerrel akarom megoldani?

function fibo(n:integer):longint;

begin

if (n<3)

then fibo:=1

else fibo:=fibo(n-1)+fibo(n-2);

end;

A paraméter a sorozat elemeinek sorszáma (fibo(15) a sorozat 15. elemét adja vissza), és addig hívja meg önmagát a függvény (folyamatosan csökkentve a paraméter értékét), amíg el nem jut a sorozat első két eleméhez (fibo(1) és fibo(2)), majd visszafelé szépen összeadogatja.