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.