Паскаль. Даны целые числа x и y. Вычислить: (x-y) / (1+xy)

program zz1;

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

begin

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

read (x);

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

read (y);

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

writeln (' полученный ответ = ', d:5:2); / / выводим ответ в формате пять знаков для всего числа и два знака после точки

end.