{* Задача 349 *}

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

  ');
End.

Program zadach349;

Uses zadach349.pas; {* Эту строку можно удалить *}
Const {* Константы *}
  a = 1;
  b = 15;
Var {* Необходимые переменные *}
  F : real;
  x : real;
  y : real;
  c : real;
  d : real;
Begin
  writeln('Введите значение переменных x и y:');
  readln(x, y);
  c := sqr(x);
  d := sqr(y);
  F := (exp(1 / 3*ln(c + d) / sqrt(sqr(c) + sqr(d))) * (a * c+(a / b) * c*y + (b / a) * x*d + b*d));
  writeln('F(x, y)=', F);
End.