Выполните вычисление по формуле |x|-|y|/1+|xy|. из паскаля

Var
x, y, s: real;
begin
readln(x);
readln(y);
s := abs(x) - abs(y) / 1 + abs (x*y);
writeln(s);
end.

//Pascal ABC.NET v3.0 сборка 111

Var
 x,y:real;
begin
 read(x,y);
 write(abs(x)-abs(y)/1+abs(x*y));
end.

Пример ввода:
1
2
Пример вывода:
1