Пусть n — натуральное число и пусть n!!означает 1*3*5*…*n для нечетного n и 2*4*….*n для чётного n. Для заданного натурального n вычислить: а) n!! — Pascal(Паскаль)

var n,fact:longint;
 
function factorial(n:longint): longint;
begin
  if n=1
    then
      factorial:=1
  else
    if n=2
      then
        factorial:=2
  else 
    factorial:=factorial(n-2)*n;
end;
 
begin
  readln(n);
  fact:=factorial(n);
  writeln(fact);
end.