Ответ:

хм даже не знаю хотя а²-аb-2b²-c/a-2b

Ответ:

program p2;

var a, b, c, m: real;

begin

readln (a,b,c);

if (a-2*b)<>0 then begin

m:=(a+b-c)/(a-2*b);

writeln(m) end

else writeln('На нуль ділити не можна')

end.