{* Задача 384 *}

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

');
End.

Program zadach384;

Uses zadach384.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Const {* Предопределенные *}
  a = 1;
  b = 1;
  p = 1;
Var {* Объявление переменных *}
  x : real;
  y : real;
  f : real;
Begin
  clrscr; {* Очищаем экран *}
  writeln('Enter x, y');
  readln(x, y);
  f := exp(a * x*x + b*y * y) * (sqr(cos((x - a) / p)) +      sqr(sin((y - b) / p))) / exp(2 / 3*ln(x / a-y / b));
  writeln('f= ', f);
End.