{* Задача 438 *}

Unit ZADACH438;
Interface
Implementation
Begin
 writeln('Вычислить:

 ');
End.

Program pr1;

Uses zadach438.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  x : integer;
  y : real;
Begin
  y := 1;
  For x := 2 To 15 Do {* Цикл для x => [2 .. 15] *}
    y := y * (ln(x) / 5);
  writeln ('y=', y);
End.