{* Задача 360 *}

Unit ZADACH360;
Interface
Implementation
Begin
 writeln('Составить программу для:


');
End.

Program zadach360;

Uses zadach360.pas; {* Эту строку можно удалить *}
Const {* Постоянные значения *}
  a = 1;
  b = 2;
Var {* Необходимые переменные *}
  x : real;
  y : real;
  f : real;
Begin
  write('Введите x');
  readln(x);
  write('Введите');
  readln (y);
  f := exp( - (x * x+y * y)) * (cos(x / a) - sin(y / b)) / (sqr(cos(y / a)) + sqr(sin(x / b)));
  writeln('F(x, y)=', f);
  readln; {* Ждем подтверждения пользователя *}
End.