Программа

VAR N:integer;  { Аргумент }
FUNCTION HalfFact(N:integer):real;  { Функция вычисления полуфакториала }
  Begin
    { Определение значения функции по мат. определению полуфакториала: }
    if N<=0 then HalfFact:=1
            else HalfFact:=N*HalfFact(N-2)
  End;
BEGIN
  WriteLn; { Пропуск строки }
  Write('Введите число '); { Вывод приглашения ввести число }
  ReadLn(N);               { Ввод числа }
  WriteLn(N,'!!=',HalfFact(N))  { Вычисление и вывод полуфакториала }
END.