{* Задача 389 *}

Unit ZADACH389;
Interface
Implementation
Begin
 writeln('Вычислить и вывести на экран значение функции

');
End.

Program zad1;

Uses zadach389.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  y : real;
  x : real;
  a : real;
Begin
  write('x=');
  readln(x);
  a := (abs(ln(x * x)));
  y := sqr(sin(a) / cos(a));
  writeln('y=', y : 6:4);
  readln; {* Приостановка программы. Ожидание Enter *}
End.