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

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.