Ejercicio 13

Plantee e implemente en PASCAL el programa Fibonacci, de forma que lea un
valor N > 0 y muestre el valor del término N de dicha sucesión.


PROGRAM fibonacci(input,output);
(*Programa que lea un valor n y muestre el valor del termino*)

VAR
        N:integer;
        termino:integer;
        I:integer;
        ultimo:integer;
        penultimo:integer;
        acumulador:integer;

BEGIN
        write('Introduzca el valor de n:');
        read(n);
        ultimo:=1;
        penultimo:=1;
        IF n<=2 THEN writeln('El valor del termino es 1') ELSE
                BEGIN
                FOR I:=3 TO n DO
                        BEGIN
                        termino:=ultimo+penultimo;
                        penultimo:=ultimo;
                        ultimo:=termino;
                        acumulador:=termino+acumulador;
                        END;
                        acumulador:=acumulador+2;
        writeln('La suma de los n terminos es:',acumulador,'');
        END;
END.

Ejemplo de ejecución