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

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.