Algoritmo "Baskhara"
// Descrição   : Calcular baskhara
// Autor(a)    : Pedro Hao Tavares
// Data atual  : 17/02/2020
Var              // Campo das variaveis

a:real           // Definindo a variável a como tipo real
b:real           // Definindo b variável b como tipo real
c:real           // Definindo c variável c como tipo real
delta:real       // Definindo delta variável c como tipo real
x1:real          // Definindo x1 variável c como tipo real
x2:real          // Definindo x2 variável c como tipo real

//Poderia definir todas elas em uma só linha por serem todas do tipo real
//porém para um melhor entendimento, leitura e organização deixei elas
//separadas.

// Ficaria da seguinte forma:
// a,b,c,delta,x1,x2:real

Inicio                         // Inicio do algorimo
escreval("Digite o valor referente a A:") // Imprime na tela pedindo o valor de A
leia(a)                        // Recebe o valor de A
escreval("Digite o valor referente a B:") // Imprime na tela pedindo o valor de B
leia(b)                        // Recebe o valor de B
escreval("Digite o valor referente a C:")  // Imprime na tela pedindo o valor de C
leia(c)                        // Recebe o valor de C
delta<-((b^2)-4*a*c)           // Delta recebe uma expressão matematica, referente a fórmula de delta.
se delta < 0 entao             // Dou um caminho para caso delta seja menor que 0
escreval("Raiz negativa não pode ser extraida. Valor de delta: ", delta) //Imprimo na tela que raizes negativa não pode ser extraida, caso delta seja menor que 0. E mostra o valor de delta.
senao                          // Porém se delta for igual ou maior que 0 o codigo segue outro caminho.
x1<-(-b+(delta)^(1/2))/(2*a)   // x1 recebe uma expressão matematica referente ao valor da primeira raiz.
x2<-(-b-(delta)^(1/2))/(2*a)   // x2 recebe uma expressão matematica referente ao valor da segunda raiz.
Escreval("O valor das raizes X1 e X2 respectivamente é igual a:",x1,x2) //Imprime na tela o valor respectivos das raizes x1 e x2
fimse                          // Fim da minha condição sobre delta ser menor que 0 ou não
Fimalgoritmo                   // Fim do meu algoritmo