в паскале!! Задание 1. Даны x, y. Составить программу вычисления значения выражения: (дробь: вверху x-y, внизу x-y(по модулю)) Помогите пожалуйста!!!

var x,y,a:real;beginwriteln ('введите x  и y');readln(x,y);a:=(x-y)/(abs(x)-abs(y));writeln('ответ ' ,a);end.