{* Задача 523 *}

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

');
End.

Program Zadanie3;

Uses zadach523.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
    If x[i] > = 1.6 Then
      y := - exp(1 / 7 * ln(( - 1) * sin(x[i]) / cos(x[i])))  / (2 * x[i] + cos(2 * x[i]))
    Else y := exp(1 / 7 * ln(sin(x[i]) / cos(x[i])))  / (2 * x[i] + cos(2 * x[i]));
      writeln('y', i, '=', y : 3 : 2);
  End;
  
End.