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

var x, y, result: real;beginwriteln("Введите данные значения для 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.