Составьте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов

aх^2+вх+с=0 var a, b, c, d, x1, x2 : real;  begin  write('a = '); readln(a);  write('b = '); readln(b);  write('c = '); readln(c);  d := b*b + 4*a*c;  if d=0 then  begin  x1 := b / (2 * a)  writeln (x1:3:3);  end  else  if d>0 then  begin  x1 := (- b + sqrt(d) / (2 * a);  x2 := (- b - sqrt(d) / (2 * a);  writeln (x1:3:3, ' ', x2:3:3);  end  else  writeln ('Нет решения');  end.