Написать программу вычисления значений заданного арифметического выражения. Результат округлить до 2-х знаков после запятой. b = xsin⁡(x)- x2sin2(x)

var x,y,r: real;

begin

 write('x y через пробел: '); readln(x,y);

 r:=abs(x-y)/(1+abs(x*y));

 r:=round(r*100)/100;

 writeln('результат: ',r);

end.

x y через пробел: 0.5 -3.4

результат: 1.44