Дано целое число N (>2). сформировать и вывести целочисленный массив размера n, содержащий n первых элементов последовательности фибоначчи

program zz1;

var a, b, n, i, c, s:integer; / / задаем переменные целого типа

m:array[1 ... 100] of integer;

begin

write (' введите натуральное число n '); / / вводим с клавиатуры число

read (n);

a:=1; b:=1; c:=a+b; / / получаем первые числа Фибоначчи

m[1]:=a; m[2]:=b; m[3]:=c;

i:=3;

while i < = n do / / организуем цикл, пока количество чисел Фибоначчи меньше чем заданное число N

begin

a:=b;

b:=c;

c:=a+b; / / получаем следующее число Фибоначчи

i:=i + 1;

m[i]:=c;

end;

for i:=1 to n do write (m[i],' '); / / выводим ответ

end.