СРОЧНО.Решите пожалуйста задачу по паскаль (смотрите скрин)

Question

СРОЧНО.Решите пожалуйста задачу по паскаль (смотрите скрин)

---

Answer 1

Var n, a, b, i, j: int64;
   ar: array[1..10000]of biginteger;
  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.