{* Задача 398 *}

Unit ZADACH398;
Interface
Implementation
Begin
 writeln('Вычислить выражение:

');
End.

Program zadach398;

Uses zadach398.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  x : real;
  y : real;
Const {* Предопределенные *}
  e = 2.7;
Begin
  ClrScr; {* Стираем всё с экрана *}
  Write('X=');
  ReadLn(x);
  y := (1 / 7+ln(sqrt(x))) * exp(sqrt(x - 2) * ln(e));
  WriteLn('Y=', y : 5:2);
  ReadLn; {* Ждем подтверждения пользователя *}
End.