Pascal/Turbo Pascal - Como funciona este algoritmo de Recursion

program tp6;

function fibonacci (nro:integer):integer;

begin

	if (nro<=2) then

		fibonacci:=1

	else

		fibonacci:= fibonacci (nro-1)+ fibonacci (nro-2);

end;

var

nro,resultado:integer;

begin

	write ('ingrese nro: ');

	readln (nro);

	resultado:= fibonacci (nro);

	writeln (resultado);

end.

program tp6;

{Devuelve el n£mero n-‚simo de la sucesi¢n de Fibonacci. Cada n£mero de dicha sucesi¢n es la suma de sus dos antecesores}

function fibonacci (nro:integer):integer;

{Para n=3: Primera llamada: fibonacci(3-1)+fibonacci(3-2)}

                      {Fibonacci(3-1)= fibonacci(1) -> como n<=2 fibonacci=1

                      fibonacci(3-2)=fibonacci(2) -> al igual que antes fibonacci=1

                        1+1 = 2 como efectivamente ocurre con la sucesi¢n de fibonacci. Lo que hace la funci¢n es llamarse a s¡ misma,

                        en eso consiste la recursividad, mientras n>2}

begin

	if (nro<=2) then

		fibonacci:=1

	else

		fibonacci:= fibonacci (nro-1)+ fibonacci (nro-2);

end;

var

nro,resultado:integer;

begin

	write ('ingrese nro: ');

	readln (nro);

	resultado:= fibonacci (nro);

	writeln (resultado);

end.

{Mira estas formas }

program ejemplo_fibonacci;

uses

    crt;

 var

   bb, val1, num : longint;

   count : integer;

  Function fibonacci_recursivo(n : LongInt) : LongInt;

  begin

    if n <= 1 then

    fibonacci_recursivo := 1

  else

    fibonacci_recursivo := fibonacci_recursivo(n - 1) +

                           fibonacci_recursivo(n - 2);

  end;

  function Fibonacci_norecursivo(n : longint) : longint;

  var

    i   : longint;

    f1, f2, f3 : longint;

  begin

     if n <= 1 then

     begin

       Fibonacci_norecursivo := 1;

     end;

        f3 := 1;

        f1  := 1;

        f2  := 1;

     for i := 2 to n do

     begin

        f3 := f1 + f2;

        f2 := f1;

        f1 := f3;

     end;

       Fibonacci_norecursivo := f3;

   end;

  begin

    clrscr;

    count := 0;

    Write('    Numero : ');

    readln(count);

    if count > 35 then

    count := 35;

    writeln;

    writeln('    ',fibonacci_recursivo(Count));

    writeln;

    writeln('    ',Fibonacci_norecursivo(Count));

    readkey;

end.