algoritmo "Eleicao"
var
  contador, tC1,tC2,tC3,tC4, tNulos, maior: inteiro
  voto, nomeVencedor: caracter
inicio
  tC1 <- 0
  tC2 <- 0
  tC3 <- 0
  tC4 <- 0
  tNulos <- 0
  para contador de 1 ate 3 faca
    escreval("--------ELEIÇÃO 2010--------")
    escreval("----------------------------")
    escreval("10100 - José Anacleto Soares")
    escreval("57700 - Maria Ângela Braga")
    escreval("98980 - Carlos Barbosa")
    escreval("99999 - Jussara Freire")
    escreva("Digite o número do seu candidato: ")
    leia(voto)
    se (voto = "10100") entao
       tC1 <- tC1 + 1
    senao
      se (voto = "57700") entao
         tC2 <- tC2 + 1
      senao
         se (voto = "98980") entao
            tC3 <- tC3 + 1
         senao
            se (voto = "99999") entao
               tC4 <- tC4 + 1
            senao
               tNulos <- tNulos + 1
            fimse
         fimse
      fimse
    fimse
  fimpara
  escreval("Total de votos do candidato 10100 - José Anacleto Soares: ",tC1)
  escreval("Total de votos do candidato 57700 - Maria Ângela Braga: ",tC2)
  escreval("Total de votos do candidato 98980 - Carlos Barbosa: ",tC3)
  escreval("Total de votos do candidato 99999 - Jussara Freire: ",tC4)
  escreval("Total de votos nulos: ",tNulos)
  escreval("---------------------------------------")
  escreval("----------VENCEDOR DA ELEIÇÃO----------")
  escreval("---------------------------------------")
  maior <- tC1
  nomeVencedor <- "José Anacleto Soares"
  se (tC2 > maior) entao
      maior <- tC2
      nomeVencedor <- "Maria Ângela Braga"
  fimse
  se (tC3 > maior) entao
      maior <- tC3
      nomeVencedor <- "Carlos Barbosa"
  fimse
  se (tC4 > maior) entao
      maior <- tC4
      nomeVencedor <- "Jussara Freire"
  fimse
  escreval(nomeVencedor," com ",maior," votos.")
fimalgoritmo