Даны действительные числа х и у, напишите программу вычисления ( |х-у| )/(1+|ху|). результат округлите до двух знаков после запятой. умоляю не шарю в информатике

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