{* Задача 357 *}

Unit ZADACH357;
Interface
Implementation
Begin
 writeln('Вычислить:

');
End.

Program zadach357;

Uses zadach357.pas; {* Эту строку можно удалить *}
Const {* Предопределенные *}
  a = 2;
  b = 3;
  p = 8;
Var {* Необходимые переменные *}
  x : real;
  y : real;
  f : real;
Begin
  writeln ('ввести x, y:');
  readln (x, y);
  f := sqr(sin(x - p/a)) + (sqr(y) + x*y + sqr(x)) * (sqr(cos(x - p/a))) / (sqr(a) + sqr(b));
  writeln('x=', x : 5:3, 'y=', y : 5:3, 'f=', f : 6:3);
  readln
End.