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

Question

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

Answer 1

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.