Написать программу к формуле d=(|x|-|y|)/(1+|xy|)

Ладно, раз все эти нюансы не важны, то вот так:program Project1;varx,y, d: real;beginwrite(' Enter X:');readln(x);write('Enter Y:');readln(y);d:= ((abs(x)-abs(y)))/((1+abs(x*y)));writeln(d:0:5);readln;end.