algoritmo "Eleicao"
// Função :
// Autor :
// Data : 28/5/2009
// Seção de Declarações 
var
   VOTO, CONT, VOTO1, VOTO2, VOTO3, VOTO5, VOTO6, SOMA, NULOS : INTEIRO
   PERCENTUAL                                                 : REAL
inicio
      VOTO <- 0
      CONT <- 0
      VOTO1 <- 0
      VOTO2 <- 0
      VOTO3 <- 0
      VOTO5 <- 0
      VOTO6 <- 0
      LEIA(VOTO)
           ENQUANTO VOTO > -1 FACA
              SE VOTO = 1 ENTAO
                 VOTO1 <- VOTO1 + 1
              FIMSE
              SE VOTO = 2 ENTAO
                 VOTO2 <- VOTO2 + 1
              FIMSE
              SE VOTO = 3 ENTAO
                   VOTO3 <- VOTO3 + 1
              FIMSE
              SE VOTO = 5 ENTAO
                   VOTO5 <- VOTO5 + 1
              FIMSE
              SE VOTO = 6 ENTAO
                   VOTO6 <- VOTO6 + 1
              FIMSE
              LEIA(VOTO)
           FIMENQUANTO
           SOMA <- VOTO1 + VOTO2 + VOTO3 + VOTO5 + VOTO6
           ESCREVAL("CANDITADO1: ",VOTO1)
           ESCREVAL("CANDITADO2: ",VOTO2)
           ESCREVAL("CANDITADO3: ",VOTO3)
           NULOS <- VOTO5 + VOTO6
           PERCENTUAL <- (NULOS*100) / SOMA
           ESCREVAL("NULOS: ",PERCENTUAL,"%")
           SE VOTO1 > (VOTO2 + VOTO3) ENTAO
              ESCREVAL("VENCEDOR VOTO1")
           SENAO
                SE VOTO2 > (VOTO1 + VOTO3) ENTAO
                   ESCREVAL("VENCEDOR VOTO2")
                SENAO
                     SE VOTO3 > (VOTO1 + VOTO2) ENTAO
                        ESCREVAL("VENCEDOR VOTO3")
                     SENAO
                          ESCREVAL("SEGUNDO TURNO")
                     FIMSE
                FIMSE
           FIMSE

           
fimalgoritmo