{* Задача 380 *}

Unit ZADACH380;
Interface
Implementation
Begin
 writeln('Программа вычисления


');
End.

Program formul;

Uses zadach380.pas; {* Эту строку можно удалить *}
Const {* Предопределенные *}
  a = 12;
  b = 2;
  p = 3;
Var {* Необходимые переменные *}
  x    : real;
  F    : real;
  y    : real;
  arin : real;
Begin
  write('¢
  ¢
  ¥
  á
  â
  ¨
  x, y');
  readln(x, y);
  F := (x + y/b) / (y - x/a) * sqr(sin(x / p)) + (y - x/p) / (x - y/a) * sqr(sin(y / p));
  writeln('x=', x : 4:2, 'y=', y : 4:2, 'F(x, y)=', F : 6:2);
End.