Напишите это уравнение в виде программы в паскале, пожалуйста!!!

var x, y, result: real;

begin

writeln("Введите данные значения для x и y: ");

read(x, y);

result := ( ( 1 + sqr( sin( x+y ) ) / (2 + abs( x - ( (2 * x) / ( 1 + sqr(x) + sqr(y) )) ) + x;

writeln( "Результат вычисления: ", result );

end.