Необходимо написать программу в паскале.x и y вводятся с клавиатуры
begin
var (x, y) := ReadReal2;
Print((1 + Sqr(Sin(x + y))) / (2 + Abs(x - 2 * x / (1 * Sqr(x * y)))) + x)
end.
3.1 -0.273
3.24500687418188
Var x,y,res: Real;
Begin
readln(x,y);
res:=(1+Sin((x+y)/180)*Sin((x+y)/180))/2+abs(x-(2*x)/(1+x*x*y*y))+x;
readln();
End.