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

Question

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

Answer 1

//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

Answer 2

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

Comments

Модуль x в начале забыли.