{* Задача 386 *}

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

Program formul (Input, Output);

Uses zadach386.pas; {* Эту строку можно удалить *}
Const {* Константы *}
  a = 1;
  b = 15;
  p = 3.141;
Var {* В работе нам потребуются переменные: *}
  F : real;
  x : real;
  y : real;
Begin
  writeln('Введите значения x и y:');
  readln(x, y);
  F := ((a * x*x + (a - b) * x*y + b*y * y) / (exp(1 / 3*ln(abs(x / p-a))) + exp(1 / 3*ln(abs(y / p-b))))) * (cos(x / p) + sin(y / p));
  writeln(f);
  readln; {* Приостановка программы. Ожидание Enter *}
End.