Паскаль.Известно, что первые два элемента массива равны a и b. А каждый следующий элемент...

Question

Паскаль.Известно, что первые два элемента массива равны a и b. А каждый следующий элемент равен сумме значений всех предыдущих элементов и собственного номера (нумерация элементов массива начинается с единицы). Заполните массив из n элементов, используя этот принцип и выведите значения элементов массива в обратном порядке.
Формат входных данных

Целые положительное число n (2
Целые числа a,b (-50 < a,b < 50)

Формат выходных данных

Строка, содержащая элементы искомого массива в обратном порядке, записанные через пробел

Answer 1

Var n, a, b, i, j: integer;
   ar: array[1..10000]of integer;
  begin
   read(n, a, b);
   ar[1] := a;
   ar[2] := b;
   for i := 3 to n do
   begin
    for j := 1 to i - 1 do
    begin
      ar[i] := ar[i] + ar[j];
    end;
    ar[i] := ar[i] + i;
  end;
  for i := n downto 1 do write(ar[i],' ');
end.