По моему так:
Р(ММ) = Р(М) Р(М) = 0,515 0,515 = 0,265;
Р(ДД) = 0,485 0,485 = 0,235;
Р(МД) = 0,515 0,485 = 0,25.
//PascalABC.NET 3.0
begin
var a := ReadReal('a =');
var b := ReadReal('b =');
var c := ReadReal('c =');
b -= c;
if (a = 0) and (b = 0) then writeln('Уравнение имеет бесконченое множество корней')
else if a = 0 then writeln('Уравнение не имеет корней')
else writeln('Уравнение имеет один корень: ', -b / a);
<span>end.</span>