Составьте алгоритм вычисления суммы (PascalABC) : 1 + (1+2) + (1+2+3) + ... + (1+2 + ... + 10);

var a: array[1 ... 10] of integer;

b: array[1 ... 100] of integer;

i, j, y, n, sum: integer;

begin

n : = 1;

for i : = 1 to 10 do a[i] : = i;

for j : = 1 to 10 do

for y : = 1 to n do begin

b[j] : = b[j] + a[y];

n : = n + 1;

end;

for i : = 1 to 10 do sum : = sum + b[i];

writeln ('Решением заданной функции является', sum);

end.

1 + (1+2) = 4