Olá, bom, aqui está:
algoritmo "Bhaskara"
var
nA, nB, nC: Real
Delta: Real
Delta2: Real
Delta3: Real
X1_1: Real
X1_2: Real
X2_1: Real
X2_2: Real
Valor4 : Real
inicio
Escreval("Informe um número A:")
Leia(nA)
Escreval("O número escolhido foi",nA)
Escreval("")
Escreval("Informe um número B:")
Leia(nB)
Escreval("O número escolhido foi",nB)
Escreval("")
Escreval("Informe um número C:")
Leia(nC)
Escreval("O número escolhido foi",nC)
Escreval("")
Escreval("Resultados:")
Escreval("")
Valor4 <- 4
Delta <- Exp(nB, 2)
Delta2 <- (Delta - 4)
Delta3 <- (Delta2 * nA * nC)
Escreval("Delta:",Delta3)
Escreval("")
X1_1 <- (-nB + RaizQ(Delta3))
X1_2 <- (X1_1 / 2 * nA)
Escreval("x1:",X1_2)
X2_1 <- (-nB - RaizQ(Delta3))
X2_2 <- (X2_1 / 2 * nA)
Escreval("x2:",X2_2)
fimalgoritmo