Напечатать последовательность чисел Фибоначчи 1, 1, 2, 3, 5 ... и т. д., где каждое число равно сумме двух предыдущих: ровно N чисел.

Program Fibonacci;

Uses Crt;

var i, n:integer;

{Итерационный метод вычисления чисел Фибоначчи}

function fib_it (n:integer) : integer;

var a, b, c, i:integer;

begin

a:=1; b:=1;

if (n=1) or (n=2) then fib_it:=1

else begin

for i:=3 to n do

begin

c:=a+b

a:=b;

b:=c;

end;

fib_it:=c;

end;

end;

{main program}

begin

clrscr;

write ('Введите n: ') ;

readln (n) ;

for i:=1 to n do write (fib_it (i),' ') ;

readkey;

end.