Ejercicio 16

Plantee e implemente un programa en  PASCAL que a partir de un número
entero mayor que 0 introducido por teclado obtenga la suma de los primeros n
términos de la sucesión de Fibonacci.


PROGRAM fibonacci(input,output);
(*Programa que lea un valor n y muestre la suma de los terminos*)

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