{* Задача 84 *}

Unit ZADACH84;
Interface
Implementation
Begin
 writeln('Дано натуральное число N. Вычислить произведение первых N сомножителей. (2/1)*(2/3)*(4/3)*(4/5)/….');
End.

Program zadach84;

Uses zadach84.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  res  : real;
  i    : integer;
  n    : integer;
  x    : integer;
  y    : integer;
  flag : integer;
Begin
  ClrScr; {* Очищаем экран *}
  Write('n=...');
  Readln(n);
  res := 1;
  flag := 0;
  x := 2;
  y := 1;
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    res := res * x / y;
    If flag = 0 Then
      y := y + 2
    Else x := x + 2;
      flag := 1 - flag;
  End;
  Writeln(res);
End.