Найти ошибку в программе: Условие: Даны целые числа N (> 2), A и B.
Сформировать и вывести целочисленный массив размера N,
первый элемент которого равен A, второй равен B, а каждый последующий элемент равен сумме всех предыдущих.
Подсказка: d[3] := A + B; d[i]:=d[i-1]*2;

var
d: array[1..100] of real;
i, N,A,B: integer;

begin
read(N,A,B);
d[1]:=A;
d[2]:=B;
for i := 3 to N do
begin
d[i]:=A+B+d[i-1];
write(d[i],' ');
end;
end.

ashbringer12332    3   25.11.2020 16:16    4