Fórmula de Bháskara

[Matheus Cordeiro]

Alguém poderia resolver o problema da raiz por favor? Eu realmente não consigo fazer nada possível. Desde já, agradeço

programa
{
    funcao inicio()
    {

        
        
        inteiro A,B,C,D
        real X1,X2

        escreva("Entre com o valor de A: \n")
        leia(A)
        escreva("Entre com o valor de B: \n")
        leia(B)
        escreva("Entre com o valor de C: \n")
        leia(C)

        D=((B*B)-((4*(A*C))))
        

        se (D>=1) {

            escreva("o valor de Delta será: \n",D, "\n")

            X1=((-B)+(D^(1/2))/2*A)
            X2=((-B)-(D^(1/2))/2*A)

            escreva("O valor do primeiro valor será: \n",X1,"\n")
            escreva("O valor do segundo valor será: \n",X2,"\n")
        }    
        
        se (D == 0) {

            escreva("O Delta equivale à zero", "\n")
            X1=((-B)+(D^(1/2))/2*A)
            X2=((-B)-(D^(1/2))/2*A)

            escreva("o valor será: \n",X1=X2,"\n")
            
        }
        se (D<0) {

            escreva("Não podemos progredir \n")        
        }
        

        
    }
}

[Thiago André Cardoso]

Boa tarde amigo, 

Nesta linha:  

 X1=((-B)+(D^(1/2))/2*A)

Melhor fazer algo tipo: 

raizDelta <- D^(1/2) 

X1 <-  -B + raizDelta/(2*A)

Me avise caso não funcione por favor.