{* Задача 164 *}

Unit ZADACH164;
Interface
Implementation
Begin
 writeln('Дано натуральное число N. Вычислить N!!, определяемое как произведение чётных чисел от 2 до N, если N чётно, либо как произведение нечётных чисел от 1 до N, если N нечётно. ');
End.

Program pas13579;

Uses zadach164.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  N   : integer;
  A   : integer;
  F   : integer;
  res : integer;
Begin
  write('Enter N: ');
  readln(n);
  res := 1;
  If N Mod 2 = 1 Then
  Begin
    A := 1;
    While an Do
    Begin
      A := A + 2;
      res := res * A;
    End;
    
  End;
  If N Mod 2 = 0 Then
  Begin
    A := N Div 2;
    For F := 1 To A Do {* Увеличиваем F от 1 до A с шагом 1 *}
    Begin
      res := res * F * 2;
    End;
    
  End;
  writeln('N = ', res);
End.