Ответы и объяснения

2014-02-18T10:15:22+04:00
Program qq;
var x, y, a: real;
 begin
writeln ('vvedite deistvitelnye chisla');
readln (x, y);
a:= (abs(x) - abs(y)) / (1 + abs(x * y));
writeln (a);
readln;
readln;
 end.