Решите биквадратное уравнение ах4 + bх2 + с = 0
Паскаль

//PascalABC.NET 3.1 сборка 1200var    a, b, c, d, x: real;    x2: array[1..2]of real;    i: integer;begin    readln(a, b, c);    d := b * b - 4 * a * c;    if d < 0 then begin        writeln('Сложные комплексные корни');        halt;    end;        d := sqrt(d);    x2[1] := (-b + d) / 2 / a;    x2[2] := (-b - d) / 2 / a;        for i := 1 to 2 do     begin        x := sqrt(abs(x2[i]));        if x2[i] >= 0 then             writeln('x[', 2 * i - 1, '] = ', x, ' x[', 2 * i, '] = ', -x)        else             writeln('x[', 2 * i - 1, '] = ', x, 'i x[', 2 * i, '] = ', -x, 'i');    end;end.