{* Задача 525 *}

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

');
End.

Program Zadanie3;

Uses zadach525.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  x : Array[1..3] Of real;
  y : real;
  i : integer;
Begin
  ClrScr; {* Очистка экрана *}
  For i := 1 To 4 Do {* Переменная i увеличивается с 1 до 4 *}
  Begin
    writeln('‚ўҐ¤ЁвҐ x', i);
    readln(x[i])
  End;
  For i := 1 To 4 Do {* Переменная i увеличивается с 1 до 4 *}
  Begin
    If x[i] = 0.1 Then
      y := - exp((1 / 3) * ln(( - ln(x[i]) - exp(2.5 * x[i])) /  exp((1 / 7) * ln(x[i] - 0.8 * x[i]))))
    Else y := exp((1 / 3) * ln((ln(x[i]) + exp(2.5 * x[i])) / exp((1 / 7) * ln(x[i] - 0.8 * x[i]))));
      writeln('y', i, '=', y : 3:2);
  End;
  
End.