Вычислить значение выражения в паскале z=(|x|-|y|) / 1+|xy|

Program fgg;

var
x, y: real;

begin
Write('x= ');
ReadLn(x);
Write('y= ');
ReadLn(y);
Write('z=', (abs(x) - abs(y)) / (1 + abs(x * y)));
end.