Необходимо написать программу в паскале.
x и y вводятся с клавиатуры

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.

PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018Внимание! Если программа не работает, обновите версию!

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