Question

Помогите, пожалуйста, пункт 1, 5 и 6

Answer 1

Program printFibonacci;
var A: array [1..20] of integer;
i: byte;
begin
A[1]:=1;
A[2]:=1;
for i:=3 to 20 do
begin
A[i]:=A[i-1]+A[i-2];
writeln ('A[i]=' A[i]);
end;
end.
Но я не уверен(