Решение квадратного уравнения в общем виде по разветвляющей структуре программы

Var a, b, c, d : Real;

Begin

Write ('Введите коэффициенты A B C: ') ; Readln (a, b, c) ;

d:=b*b-4*a*c;

If d<0 then Writeln ('Решений нет') else

Case d=0 of

True : Writeln ('x1 и x2 = ',-b / (2*a) : 8:4) ;

False : Writeln ('x1 = ', (-b+sqrt (d)) / (2*a) : 8:4,' x2 = ', (-b-sqrt (d)) / (2*a) : 8:4) ;

end;

end.