Uses crt;
var a,b,c,d:real;
begin
writeln('Введите переменную a');
readln(a);
writeln('Введите переменную b');
readln(b);
writeln('Введите переменную c');
readln(c);
writeln('Введите переменную d');
readln(d);
if (c*d<>0) and (c<>0) and (d<>0) then write(a/c-b/d-(a*b-c)/c*d)
else write('На 0 делить нельзя!');
readln;
end.