Question

помогите набрать программу
y=d/c*b/d-ad-c/cd​

Answer 1

var a, b, c, d, y: real;

begin

   readln(a, b, c, d);

   writeln(d / c * b / d - a * d - c / (c * d))

end.