{* Задача 526 *}

Unit ZADACH526;
Interface
Implementation
Begin
 writeln('Вычислить:
');
End.

Program Zadanie3;

Uses zadach526.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  x : Array[1..3] Of real;
  y : real;
  i : integer;
Begin
  ClrScr; {* Очистка экрана *}
  For i := 1 To 3 Do {* Увеличиваем i от 1 до 3 с шагом 1 *}
  Begin
    writeln('Введите x', i);
    readln(x[i])
  End;
  For i := 1 To 3 Do {* Переменная i увеличивается с 1 до 3 *}
  Begin
    y := sqrt(abs(ln(x[i]) - exp(2.3 * x[i]))) /  - exp((1 / 3) * ln( - sqr(sin(x[i]) / cos(x[i]))  + exp(x[i] * ln(2))));
    writeln('y', i, '=', y : 3:2);
  End;
  
End.