Напишите программу pascal - 1*(1+2)*(1+2+3)*(1+2+3+4)*(1+2+3+...n)

Предыдущий
вопрос Следующий
вопрос

program Pascal;

var
n, i, j, result: integer;

begin
write('Enter a value for n: ');
readln(n);

result := 1;

for i := 1 to n do
begin
for j := 1 to i do
begin
result := result * (j + i);
end;
end;

writeln('Result: ', result);
end.