{* Задача 487 *}

Unit ZADACH487;
Interface
Implementation
Begin
 writeln('

Дано натуральное число N. Вычислить произведение первых N сомножителей.

(2/1)*(2/3)*(4/3)*(4/5)/….

');
End.

Program zadach487;

Uses zadach487.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] *}
  Begin
    res := res * x / y;
    If flag = 0 Then
      y := y + 2
    Else x := x + 2;
      flag := 1 - flag;
  End;
  Writeln(res);
End.