programa
{
    inteiro elevador,AM = 0,BM= 0,CM= 0,AV= 0,BV= 0,CV= 0,AN= 0,BN= 0,CN= 0,usuario= 0,valormaiorutilizado= 0,maiorperiodo= 0,maiorelevadorperiodo= 0
    inteiro matutino= 0,  vespertino=0, noturno=0

     cadeia periodo="",maiorvalorutilizadoC="",finalizar="",maiorperiodoC="",maiorelevadorperiodoC=""

funcao inicio ()
    {
    inteiro pessoasentrevistadas=0
    faca
        { pessoasentrevistadas++


      escreva("Informe qual elevador você irá utilizar: 1, 2 ou 3")
      leia(elevador)
      escreva("Informe qual o período de sua escolha sendo: M = Matutino, V = Vespertino, N = Noturno")
      leia(periodo)
      escreva("Deseja finalizar? Se sim, digite S!")
      leia(finalizar)

      se (elevador==1 e (periodo=="M" ou periodo=="m")) {
         AM = AM+1
         matutino++
         se(matutino>maiorelevadorperiodo) {
         	maiorelevadorperiodo=matutino
         	maiorelevadorperiodoC="Matutino"
         	se(AM>BM) e (AM>CM){
         		maiorperiodoC="Elevador A"
         	}
         	senao se(BM>AM) e (BM>CM){
         		maiorperiodoC="Elevador B"
         	}
         	senao se(CM>AM) e (CM>BM){
         		maiorperiodoC="Elevador C"
         	}
         }
         se (AM > valormaiorutilizado) {
            valormaiorutilizado=AM
            maiorvalorutilizadoC="AM"
         }
      }

      se (elevador==1 e (periodo=="V" ou periodo=="v")) {
         AV=AV+1
         vespertino++
         se(vespertino>maiorelevadorperiodo) {
         	maiorelevadorperiodo=vespertino
         	maiorelevadorperiodoC="Vespertino"
         	         	se(AV>BV) e (AV>CV){
         		maiorperiodoC="Elevador A"
         	}
         	senao se(BV>AV) e (BV>CV){
         		maiorperiodoC="Elevador B"
         	}
         	senao se(CV>AV) e (CV>BV){
         		maiorperiodoC="Elevador C"
         	}
         }
         se(AV>valormaiorutilizado) {
            valormaiorutilizado=AV
            maiorvalorutilizadoC="AV"
         }
      }

     se (elevador==1 e (periodo=="N" ou periodo=="n")) {
         AN=AN+1
         noturno++
         se(noturno>maiorelevadorperiodo) {
         	maiorelevadorperiodo=noturno
         	maiorelevadorperiodoC="Noturno"
         	         	         	se(AN>BN) e (AN>CN){
         		maiorperiodoC="Elevador A"
         	}
         	senao se(BN>AN) e (BN>CN){
         		maiorperiodoC="Elevador B"
         	}
         	senao se(CN>AN) e (CN>BN){
         		maiorperiodoC="Elevador C"
         	}
         }
         se(AN>valormaiorutilizado) {
            valormaiorutilizado=AN
            maiorvalorutilizadoC="AN"
         }
      }
   se (elevador==2 e (periodo=="M" ou periodo=="m")) {
         BM=BM+1
         matutino++
         se(matutino>maiorelevadorperiodo) {
         	maiorelevadorperiodo=noturno
         	maiorelevadorperiodoC="Matutino"
         	         	se(AM>BM) e (AM>CM){
         		maiorperiodoC="Elevador A"
         	}
         	senao se(BM>AM) e (BM>CM){
         		maiorperiodoC="Elevador B"
         	}
         	senao se(CM>AM) e (CM>BM){
         		maiorperiodoC="Elevador C"
         	}
         }
         se(BM>valormaiorutilizado) {
            valormaiorutilizado=BM
            maiorvalorutilizadoC="BM"
         }
      }
  se (elevador==2 e (periodo=="V" ou periodo=="v")) {
         BV=BV+1
         vespertino++
         se(vespertino>maiorelevadorperiodo) {
         	maiorelevadorperiodo=vespertino
         	maiorelevadorperiodoC="Vespertino"
         	         	se(AV>BV) e (AV>CV){
         		maiorperiodoC="Elevador A"
         	}
         	senao se(BV>AV) e (BV>CV){
         		maiorperiodoC="Elevador B"
         	}
         	senao se(CV>AV) e (CV>BV){
         		maiorperiodoC="Elevador C"
         	}
         }
         se(BV>valormaiorutilizado) {
            valormaiorutilizado=BV
            maiorvalorutilizadoC="BV"
         }
      }
  se (elevador==2 e (periodo=="N" ou periodo=="n")) {
         BN=BN+1
         noturno++
         se(noturno>maiorelevadorperiodo) {
         	maiorelevadorperiodo=noturno
         	maiorelevadorperiodoC="Noturno"
         	         	         	se(AN>BN) e (AN>CN){
         		maiorperiodoC="Elevador A"
         	}
         	senao se(BN>AN) e (BN>CN){
         		maiorperiodoC="Elevador B"
         	}
         	senao se(CN>AN) e (CN>BN){
         		maiorperiodoC="Elevador C"
         	}
         }
         se(BN>valormaiorutilizado) {
            valormaiorutilizado=BN
            maiorvalorutilizadoC="BN"
         }
      }
se (elevador==3 e (periodo=="M" ou periodo=="m")) {
         CM=CM+1
         matutino++
         se(matutino>maiorelevadorperiodo) {
         	maiorelevadorperiodo=matutino
         	maiorelevadorperiodoC="Matutino"
         	         	se(AM>BM) e (AM>CM){
         		maiorperiodoC="Elevador A"
         	}
         	senao se(BM>AM) e (BM>CM){
         		maiorperiodoC="Elevador B"
         	}
         	senao se(CM>AM) e (CM>BM){
         		maiorperiodoC="Elevador C"
         	}
         }
         se(CM>valormaiorutilizado) {
            valormaiorutilizado=CM
            maiorvalorutilizadoC="CM"
         }
      }
se (elevador==3 e (periodo=="V" ou periodo=="v")) {
         CV=CV+1
         vespertino++
         se(vespertino>maiorelevadorperiodo) {
         	maiorelevadorperiodo=vespertino
         	maiorelevadorperiodoC="Vespertino"
         	         	se(AV>BV) e (AV>CV){
         		maiorperiodoC="Elevador A"
         	}
         	senao se(BV>AV) e (BV>CV){
         		maiorperiodoC="Elevador B"
         	}
         	senao se(CV>AV) e (CV>BV){
         		maiorperiodoC="Elevador C"
         	}
         }
         se(CV>valormaiorutilizado) {
            valormaiorutilizado=CV
            maiorvalorutilizadoC="CV"

         }
      }
se (elevador==3 e (periodo=="N" ou periodo=="n")) {
         CN=CN+1
         noturno++
         se(noturno>maiorelevadorperiodo) {
         	maiorelevadorperiodo=noturno
         	maiorelevadorperiodoC="Noturno"
         	         	se(AN>BN) e (AN>CN){
         		maiorperiodoC="Elevador A"
         	}
         	senao se(BN>AN) e (BN>CN){
         		maiorperiodoC="Elevador B"
         	}
         	senao se(CN>AN) e (CN>BN){
         		maiorperiodoC="Elevador C"
         	}
         }

         se(CN>valormaiorutilizado) {
            valormaiorutilizado=CN
            maiorvalorutilizadoC="Elevador C, periodo Noturno"
         }
      }
      }
        enquanto (finalizar=="N" ou finalizar=="n")
        escreva("O elevador mais utilizado foi ",maiorvalorutilizadoC)
        escreva("\nO período de maior fluxo é ",maiorelevadorperiodoC," e o elevador mais utilizado ",maiorperiodoC)
        escreva("\nA quantidade de entrevistados é ", pessoasentrevistadas)
    }
}