Напечатать последовательность чисел Фибоначчи 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:=1else 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.

Program Fibonacci;var  p, q, r, i, n: integer;begin  write('Alphaeus asks: please enter n = ');  readln(n);  p := 1;  writeln(p);  q := 1;  writeln(q);  for i:=3 to n do begin    r := p+q;    writeln(r);    p := q;    q := r  end;end.