Ответы и объяснения

2014-03-26T07:37:30+00:00
Var i,n,y:integer;
begin
readln(n);
y:=1;
for i:=1 to 2*n do
y*=i;
writeln(y);
end.