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

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 lt; 0 then begin
        writeln('Всеохватывающие корешки');
        exit;
    end;
   
    writeln('x1 = ', -b + sqrt(d) / (2 * a));
    writeln('x2 = ', -b - sqrt(d) / (2 * a));
end.