Составьте алгоритм вычисления суммы (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.