pessoal alguem pode me ajudar nesse algoritmo ? Algoritmo que resolve Eq. Polinomial de quarta ordem (biquadrada).

Como não houve uma pré definição de uma linguagem específica utilizarei pseudocódigo:

algoritmo "Equação Biquadrada"
var
a, b, c: inteiro
delta, y1, y2 , x1, x2: real
inicio
escreva("Insira o valor de A: ")
leia(a)
escreva("Insira o Valor de B: ")
leia(b)
escreva("Insira o valor de C: ")
leia(c)
//Dada a fórmula ay^2 + by + c = 0 | onde y = x^2

delta <- b^2 - 4*a*c

escreval("Delta:", delta)
se (delta > 0) entao
   y1 <- (b*(-1) + delta^0.5)/2
   y2 <- (b*(-1) - delta^0.5)/2

   // y = x^2
   se(y1 > 0) entao
        x1 <- y1^0.5
        escreval("X1:",x1)
   senao
        escreval("X1 é raiz quadrada de ",y1)
   fimse
   se(y2 > 0) entao
         x2 <- y2^0.5
         escreval("X2:",x2)
   senao
        escreval("X2 é raiz quadrada de ",y2)
   fimse
   escreval("Y1:",y1)
   escreval("Y2:",y2)
senao
     escreva("Não foi possível encontrar a raiz quadrada de",delta)
fimse
fimalgoritmo