Разработайте алгоритм для вычисления квадратного уравнения ах(в квадрате)+бх+с=0

var a,b,c,d,x1,x2:real; begin writeln('Введите коэффициенты уравнения через пробел'); read( a,b,c); d:=sqr(b)-4*a*c; if d<0 then writeln( 'Нет корней'); if d>0  then begin x1:=(-b-sqrt(d))/(2*a); x2:=(-b+sqrt(d))/(2*a); writeln(x1:6:2, x2:6:2); end else begin x1:=-b/(2*a); writeln(x1:6:2); end; readln; end;