Вычислите значение выражений по формуле a/c*b/d=(ab-c)/cd

Program zadanie;
var a,b,c,d,e:real;
beginreadln(a,b,c,d);
e:= (a / c) * (b / d)-(a * b - c)/ (-c * d);
writeln(e);readln;
end.
вот должно работать!