const n=5;var a:array [1..n] of integer;b,i:integer;beginfor i:=1 to n do read(a[i]);for i:=3 to n doa[i]:=a[i-1]+a[i-2];for i:=1 to n do write(a[i]);end.
первые 2 числа не берутся так как перед ними нет 2 чисел
const n=5;
var a:array [1..n] of integer;
b,i:integer;
begin
for i:=1 to n do read(a[i]);
for i:=3 to n do
a[i]:=a[i-1]+a[i-2];
for i:=1 to n do write(a[i]);
end.
первые 2 числа не берутся так как перед ними нет 2 чисел