Program FibonacciSequence ; {Fibonacci bez rekurze}

uses CRT;

function FibonacciNumber( n : integer ): extended;

var i:integer;

    a,b,c: extended;

begin



  if n=0 then begin FibonacciNumber:=0; writeln('  ',FibonacciNumber); end

         else begin i:=1; a:=1; b:=0;

                    while i<n do

                                 begin i:=i+1; c:=b; b:=a; a:=b+c; writeln('  ',a); end;

                    FibonacciNumber:=a;

               end

end;



var number:integer; Fib:extended;

begin

clrscr;

write('     Zadej poradi (do 23601) v Fibonacciho posloupnosti: ');

        Readln(number);

Fib:=FibonacciNumber(number);

Writeln('     Fib(',number,') = ',Fib);

repeat until keypressed;

end.