такая задача
вычислить сумму рядов:
1*(1+2)*(1+2+3)*(1+2+3+4)*...
Найти сумму, а потом произведение.
пожалуйста помогите решить задачу
надо очень срочно
function s_of(n: integer): integer;
var i, s: integer;
begin
s := 0;
for i := 1 to n do inc(s, i);
result := s
end;
var
i, p: integer;
begin
p := 1;
for i := 1 to 4 do
p := p * s_of(i);
{ Вывод результата }
end.