Дано уравнение 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.