algoritmo "voto"
var
   vt1,voto1,voto2,guarda_voto1,guarda_voto2,soma1,soma2,aux1,aux2: numerico

inicio
      escreva("Digite apenas 24  ou 11: senao será nulo: ")
      leia(vt1)
      se(vt1 = 24) entao
              voto1   <- 24
              guarda_voto1 <- 1
              soma1  <- 1
              escreval("Você votou em: " ,voto1 ," (Voto concluido)")
              escreval("...")
      senao
              se(vt1 = 11) entao
                      voto2 <- 11
                      guarda_voto2 <- 1
                      soma2 <- 1
                      escreval("Você votou em: " ,voto2 ," (Voto concluido)")
                      escreval("...")
              senao
                      escreval("Voto anulado ")

              fimse
      fimse

      //Segundo Voto

           escreva("Digite apenas 24  ou 11: senao será nulo: ")
            leia(vt1)
              se(vt1 = 24)entao
                   voto1 <- 24
                   soma1 <- (guarda_voto1+1)
                   guarda_voto1 <- soma1
                   escreval("Você votou em: " ,voto1 ," (Voto concluido)")
                   escreval("...")
              senao
                se(vt1 = 11)entao
                  voto2 <- 11
                  soma2 <- (guarda_voto2+1)
                  guarda_voto2 <- soma2
                escreval("Você votou em: " ,voto2 ," (Voto concluido)")
                escreval("...")
                           fimse
                fimse

      //Terceiro voto

           escreva("Digite apenas 24  ou 11: senao será nulo: ")
            leia(vt1)
              se(vt1 = 24)entao
                   voto1 <- 24
                   soma1 <- (guarda_voto1+1)
                   guarda_voto1 <- soma1
                   escreval("Você votou em: " ,voto1 ," (Voto concluido)")
                   escreval("...")
              senao
                se(vt1 = 11)entao
                  voto2 <- 11
                  soma2 <- (guarda_voto2+1)
                  guarda_voto2 <- soma2
                escreval("Você votou em: " ,voto2 ," (Voto concluido)")
                escreval("...")
                           fimse
                fimse

      //Qurato voto

           escreva("Digite apenas 24  ou 11: senao será nulo: ")
            leia(vt1)
              se(vt1 = 24)entao
                   voto1 <- 24
                   soma1 <- (guarda_voto1+1)
                   guarda_voto1 <- soma1
                   escreval("Você votou em: " ,voto1 ," (Voto concluido)")
                   escreval("...")
              senao
                se(vt1 = 11)entao
                  voto2 <- 11
                  soma2 <- (guarda_voto2+1)
                  guarda_voto2 <- soma2
                escreval("Você votou em: " ,voto2 ," (Voto concluido)")
                escreval("...")
                           fimse
                fimse

      //Quinto voto

           escreva("Digite apenas 24  ou 11: senao será nulo: ")
            leia(vt1)
              se(vt1 = 24)entao
                   voto1 <- 24
                   soma1 <- (guarda_voto1+1)
                   guarda_voto1 <- soma1
                   escreval("Você votou em: " ,voto1 ," (Voto concluido)")
                   escreval("...")
              senao
                se(vt1 = 11)entao
                  voto2 <- 11
                  soma2 <- (guarda_voto2+1)
                  guarda_voto2 <- soma2
                escreval("Você votou em: " ,voto2 ," (Voto concluido)")
                escreval("...")
                           fimse
                fimse

      //Sexto voto

           escreva("Digite apenas 24  ou 11: senao será nulo: ")
            leia(vt1)
              se(vt1 = 24)entao
                   voto1 <- 24
                   soma1 <- (guarda_voto1+1)
                   guarda_voto1 <- soma1
                   escreval("Você votou em: " ,voto1 ," (Voto concluido)")
                   escreval("...")
              senao
                se(vt1 = 11)entao
                  voto2 <- 11
                  soma2 <- (guarda_voto2+1)
                  guarda_voto2 <- soma2
                escreval("Você votou em: " ,voto2 ," (Voto concluido)")
                escreval("...")
                           fimse
                fimse

      //setimo voto

           escreva("Digite apenas 24  ou 11: senao será nulo: ")
            leia(vt1)
              se(vt1 = 24)entao
                   voto1 <- 24
                   soma1 <- (guarda_voto1+1)
                   guarda_voto1 <- soma1
                   escreval("Você votou em: " ,voto1 ," (Voto concluido)")
                   escreval("...")
              senao
                se(vt1 = 11)entao
                  voto2 <- 11
                  soma2 <- (guarda_voto2+1)
                  guarda_voto2 <- soma2
                escreval("Você votou em: " ,voto2 ," (Voto concluido)")
                escreval("...")
                           fimse
                fimse

      //Oitavo voto

           escreva("Digite apenas 24  ou 11: senao será nulo: ")
            leia(vt1)
              se(vt1 = 24)entao
                   voto1 <- 24
                   soma1 <- (guarda_voto1+1)
                   guarda_voto1 <- soma1
                   escreval("Você votou em: " ,voto1 ," (Voto concluido)")
                   escreval("...")
              senao
                se(vt1 = 11)entao
                  voto2 <- 11
                  soma2 <- (guarda_voto2+1)
                  guarda_voto2 <- soma2
                escreval("Você votou em: " ,voto2 ," (Voto concluido)")
                escreval("...")
                           fimse
                fimse

      //Nono voto

           escreva("Digite apenas 24  ou 11: senao será nulo: ")
            leia(vt1)
              se(vt1 = 24)entao
                   voto1 <- 24
                   soma1 <- (guarda_voto1+1)
                   guarda_voto1 <- soma1
                   escreval("Você votou em: " ,voto1 ," (Voto concluido)")
                   escreval("...")
              senao
                se(vt1 = 11)entao
                  voto2 <- 11
                  soma2 <- (guarda_voto2+1)
                  guarda_voto2 <- soma2
                escreval("Você votou em: " ,voto2 ," (Voto concluido)")
                escreval("...")
                           fimse
                fimse

      //Decimo voto

           escreva("Digite apenas 24  ou 11: senao será nulo: ")
            leia(vt1)
              se(vt1 = 24)entao
                   voto1 <- 24
                   soma1 <- (guarda_voto1+1)
                   guarda_voto1 <- soma1
                   escreval("Você votou em: " ,voto1 ," (Voto concluido)")
                   escreval("...")
              senao
                se(vt1 = 11)entao
                  voto2 <- 11
                  soma2 <- (guarda_voto2+1)
                  guarda_voto2 <- soma2
                escreval("Você votou em: " ,voto2 ," (Voto concluido)")
                escreval("...")
                           fimse
                fimse
        //Resultado da Votação!
              escreva("(Candidato 24 recebeu:) " ,soma1 ," (Candidato 11 recebeu:) " ,soma2)


fimalgoritmo