Algoritmo "semnome"
// Disciplina   : [Linguagem e Lógica de Programação]
// Professor    : Antonio Carlos Nicolodi
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Nome do(a) aluno(a)
// Data atual  : 28/03/2017
Var
// Seção de Declarações das variáveis
   a, b, c, x1, x2, delta : real

Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
   limpatela
   escreval("Algoritmo para resolver equacao do segundo grau")
   escreva("Escreva o valor de a: ")
   leia(a)
   escreva("Escreva o valor de b: ")
   leia(b)
   escreva("Escreva o valor de c: ")
   leia(c)

   se a = 0 entao
      escreva("O valor de 'a' deve ser diferente de 0")
   senao
      delta <- (b*b) - 4 * a * c
      se delta = 0 entao
         x1 <- -b / 2*a
         escreval ("Possui uma única raiz: ", x1)
      senao
         se delta > 0 entao
            x1 <- (-b + raizQ(delta)) / 2 * a)
            x2 <- (-b - raizQ(delta)) / 2 * a)

            escreval("Raizes: " , x1, " / " , x2)
         senao
            escreval("Delta < 0 nao possui raizes reais")
         fimse

      fimse
   fimse

Fimalgoritmo