Средний вагон поезда 5 . сколько всего вагонов в составе поезда?

//pascalabc.net 3.2 сборка 1318 //вариант по формуле бине var   n,fibn: real;   i: integer; begin readln(n); if n< =0 then  writeln('не существует чисел фиббоначи меньше 0') else   begin   i: =0;     while fibn< n do       begin         fibn: =(power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5);         inc(i);       end;     writeln((power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5)-1);       end;   end. //в лоб var   sum,n,buf,fib0,fib1: integer;     function fibb(fib0,fib1: integer): integer;   begin     result: =fib0+fib1;   end; begin fib0: =0; fib1: =1; readln(n); if n< =0 then     writeln('не существует чисел фиббоначи меньше 0') else   begin     if fibb(fib0,fib1)> =n then sum: =0 else     begin       while fibb(fib0,fib1)< n do         begin           buf: =fib1;           fib1: =fibb(fib0,fib1);           fib0: =buf;         end;       sum: =fibb(fib1,fibb(fib0,;     end;     writeln(sum);   end; end. пример ввода: 12 пример вывода: 20

//pascalabc.net 3.2 сборка 1318 //вариант по формуле бине var   n,fibn: real;   i: integer; begin readln(n); if n< =0 then  writeln('не существует чисел фиббоначи меньше 0') else   begin   i: =0;     while fibn< n do       begin         fibn: =(power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5);         inc(i);       end;     writeln((power((1+sqrt(5))/2,i)-power((1-sqrt(5))/2,i))/sqrt(5)-1);       end;   end. //в лоб var   sum,n,buf,fib0,fib1: integer;     function fibb(fib0,fib1: integer): integer;   begin     result: =fib0+fib1;   end; begin fib0: =0; fib1: =1; readln(n); if n< =0 then     writeln('не существует чисел фиббоначи меньше 0') else   begin     if fibb(fib0,fib1)> =n then sum: =0 else     begin       while fibb(fib0,fib1)< n do         begin           buf: =fib1;           fib1: =fibb(fib0,fib1);           fib0: =buf;         end;       sum: =fibb(fib1,fibb(fib0,;     end;     writeln(sum);   end; end. пример ввода: 12 пример вывода: 20