{* Задача 372 *}

Unit ZADACH372;
Interface
Implementation
Begin
 writeln('Вычислить сумму для указанного x:

');
End.

Program zadach372;

Uses zadach372.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  k : real;
  x : real;
  S : real;
  i : integer;
  N : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  writeln ('Vvedite x, N');
  readln(x, N);
  s := 0;
  k := 2;
  For i := 1 To N Do {* Цикл для i => [1 .. N] *}
  Begin
    k := k * (i + 2);
    S := s + ln(x * i) / k;
  End;
  writeln ('otvet  ', S : 7:4);
  readln
End.