{* Вычисление выражения 1 *}

Unit ZADACHA1_2;
Interface
Implementation
Begin
 writeln('

Текст задачи:

Cоставить программу вычисления выражения на Паскале

От создателя:

В зависимости от вводимого икса выводится ответ (форматированный).

Входные данные

X - вещественного типа

Выходные данные

Y - вещественного типа

');
End.

Program zadacha1_2;

Uses zadacha1_2.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  x : real;
  y : real;
Begin
  writeln('vvedite X ne ravniy - 7');
  readln(x);
  y := ( exp(( - 2) * x) - exp((1 / 3) * ln(ln(sqr(x) + 8) / ln(10)))) / (x + 7);
  writeln('Otvet is : ', y : 2 : 5);
  readln; {* Приостановка программы. Ожидание Enter *}
End.