Pesquisar na Comunidade

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") } } }