Даны x, y. Составить программу вычисления значения выражения x-y/|x|-|y|

program zz1;

var x, y, f:real; / / вводим переменные не целого типа

begin

write (' введите первое число '); / / вводим с клавиатуры первое число

read (x);

write (' введите второе число '); / / вводим с клавиатуры второе число

read (y);

f: = (x - y) / (abs (x) - abs (y)); / / вычисляем ответ по заданной формуле

write (' произведение заданных чисел = ', f:5:2) / / выводим ответ в формате пять знаков для всего числа и два знака после точки

end.