Algoritmia - Enésimo número de la sucesión 1,1,2,3,5,8,13,21...

uses crt;

var

    a,b,c,i,n:longint;

begin

    clrscr;

    i:=3;

    a:=1;

    b:=1;

    write('Ingrese numero limite (<=45): ');

    readln(n);

    write(a,' ',b);

    while i<=n do

    begin

        c:=a+b;

        write(' ',c);

        b:=a;

        a:=c;

        inc(i);

    end;

    readkey;

end.

program;

uses crt;

var

n,contador:integer;

a,b,c:longint;

begin

repeat

clrscr;

writeln ('introduzca la posicion de la serie de fibonacci');

readln (n);

if (n>10) then

begin

writeln;

writeln ('tiene que ser un numero menor a 10');

readln;

end;

until (n<=10);

if (n=3) or (n=6) or (n=9) then

begin

writeln ('ERROR, numero par');

end

else

begin

contador:=1;

a:=0;

b:=1;

c:=0;

while (contador<=n) do

begin

a:=b;

b:=c;

c:=a+b;

contador:=contador+1;

end;

writeln ('el numero correspondiente a esa posicion es el ',c);

end;

readln;

end.