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

var    a, b, c, d: real;begin    readln(a, b, c);    if a = 0 then begin        if b = 0 then             writeln('х может быть любым')        else            writeln('x = ', c / -b);        exit;    end;        d := (b * b) - 4 * a * c;    if d < 0 then begin        writeln('Комплексные корни');        exit;    end;        writeln('x1 = ', -b + sqrt(d) / (2 * a));    writeln('x2 = ', -b - sqrt(d) / (2 * a));end.