Program n1;Uses CRT;Var i,n,m: integer;beginClrScr;writeln('Vvedite n');readln(n);i:=1; m:=1;while i<2*n-1 do begin i:= i+2; m:= m*i; end;writeln(m);readlnend.
Program n1;
Uses CRT;
Var i,n,m: integer;
begin
ClrScr;
writeln('Vvedite n');
readln(n);
i:=1; m:=1;
while i<2*n-1 do
begin
i:= i+2;
m:= m*i;
end;
writeln(m);
readln
end.