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

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.