Составить программу для нахождения корней квадратного уравнения ах2+вх+с

Uses crt;

var

d, a, b, c, x1, x2: real;

begin

writeln ('Введите a, b, c') ;

readln (a, b, c) ;

d : = b * b - 4 * a * c;

if d > 0 then

begin

x1 : = (-b + sqrt (d)) / (2 * a) ;

x2 : = (-b - sqrt (d)) / (2 * a) ;

writeln ('x1 = ', x1:2:2) ;

writeln ('x2 = ', x2:2:2) ;

end

else if d = 0 then

begin

x1 : = - b / (2 * a) ;

writeln ('x = ', x1:2:2) ;

end

else

writeln ('Нет действительных корней') ;

end.