Двойной факториал числа n обозначается \(n!!\) и определяется как произведение всех натуральных чисел в отрезке \([1,n]\), имеющих ту же чётность что и \(n\). По определению полагают \(0!! = 1\).

// Двойной факториал n!!=n*(n-2)*(n-4)*...*2 (или 1)
begin
 write('Введите x: ');
 var x := ReadInteger;
 
 var p := 1;
 while x>=2 do
 begin
 p *= x;
 x -= 2;
 end;
 
 writeln('Двойной факториал равен ', p);
end.

---

---