var y,i,n:integer;beginreadln(n);y:=1;for i:=1 to n doy:=y*2*i;writeln(y);end.
Var n,i,x,x1:integer;
x:=0;
y:=1;
readln(n);
For i:=1 to n do
Begin
x:=x+2;
y:=y*x;
end;
Writeln('y=', y);
readln;
end.
