var_5

program var_5;
uses crt;
var
N,k,j,i:integer;
P:real;
function fact(n:integer):longint;
begin
if n=1 then fact:=1
else fact:=fact(n-1)*n;
end;
begin
P:=1;
k:=0;
writeln('Введите N: ');
readln(N);
for i:=1 to N do
begin
for j:=1 to i do k:=k+j;
P:=P*(k/fact(i));
end;
writeln(P);
end.