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

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.