Паскаль. Даны целые числа x и y. Вычислить: (x-y)/(1+xy)
var a,x,y:real;
begin
read(x,y);
y:=(x-y)/(1+x*y);
writeln(y);
end.