Напечатать последовательность чисел Фибоначчи 1, 1, 2, 3, 5 … и т.д., где каждое число…

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.