Дано уравнение ax2+bx+c=0 найти решение этого уравнения или сообщить, что решения не существует

√D=b2-4ac
x1=-b+√D/2a
x2= b+√D/2a

Var
   a,b,c,d:double;
Begin
   write('a = ');
   read(a);
   write('b = ');
   read(b);
   write('c = ');
   read(c);
   d:=sqrt(b*b-4*a*c);
   if d > 0 then begin
      writeln('x1 = ', (-b+d)/(2*a));
      writeln('x2 = ', (-b-d)/(2*a));
      end
   else
      if d = 0 then
         writeln('x = ', -b/(2*a))
      else
         write('Решений нет');
End.