zadach373.PAS

{* Задача 373 *}

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

'
);
End.

Program zadach373;

Uses zadach373.pas; {* Эту строку можно удалить *}
Const {* Константы *}
  a = 3;
  b = 7;
Var {* Объявление переменных *}
  r : real;
  x : real;
  y : real;
  c : real;
  d : real;
Begin
  write('Введите x, y');
  readln(x, y);
  c := sqr(x);
  d := sqr(y);
  r := sqr(sin(x - a)) + (c * x+c * y+x * d+d * y) / (1 - x/a + y/b * cos(x + a));
  writeln('r=', r : 8:3);
  readln; {* Приостановка программы. Ожидание Enter *}
End.