Разработайте алгоритм для вычисления квадратного уравнения ах (в квадрате) + бх+с=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;