{* Задача 387 *}

Unit ZADACH387;
Interface
Implementation
Begin
 writeln('Составить программу вычисления значений функции F(x,y) для нескольких значений аргументов x и y при некоторых постоянных значениях входящих в нее величин a, b, p.

');
End.

Program formul (input, output);

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