Дано целое число N (N>1). Сформировать и вывести целочисленную последовательность из N чисел Фибоначчи по правилу: первые 2 элемента равны 1, а каждое следующее, начиная с третьего, равно сумме двух предыдущих.

Program z;

var a:array[1 ... 1000] of integer; i, n:integer;

begin

write ('Введите N (N>1, N<=1000) ') ;

read (n) ;

a[1]:=1;

a[2]:=1;

write (a[1], ' ', a[2], ' ') ;

for i:=3 to n do

begin

a[i]:=a[i-2]+a[i-1];

write (a[i], ' ') ;

end;

end.