4_61

algoritmo AnaoDesgracadoDoKRLFDPSemPai()
      declare cu, sbt, glo, rec, red, ban:inteiro;
      declare r:literal;
      faca
            se (r != 'Fim') entao
               escolha (r)
                       caso 'Cultura':
                            cu <- cu + 1;
                       caso 'SBT':
                            sbt <- sbt + 1;
                       caso 'Globo':
                            glo <- glo + 1;
                       caso 'Record':
                            rec <- rec + 1;
                       caso 'Rede':
                            red <- red + 1;
                       caso 'Bandeirantes':
                            ban <- ban + 1;
               fimescolha
               se ((cu > sbt) E (cu > glo) E (cu > rec) E (cu > red) E (cu > ban)) entao
                  escreva("A emissora com maior audiência foi TV Cultura.");
               senao
                    se ((sbt > glo) E (sbt > rec) E (sbt > red) E (sbt > ban)) entao
                       escreva("A emissora com maior audiência foi TV sbt.");
                    senao
                         se ((rec > glo) E (rec > red) E (rec > ban)) entao
                            escreva("A emissora com maior audiência foi TV record.");
                         senao
                              se ((red > glo) E (red > ban)) entao
                                 escreva("A emissora com maior audiência foi TV rede.");
                              senao
                                   se (glo > ban) entao
                                      escreva("A emissora com maior audiência foi TV globo.");
                                   senao
                                        escreva("A emissora com maior audiência foi TV bandeirantes.");
                                   fimse
                              fimse
                         fimse
                     fimse
                  fimse
               fimse
            fimse
      enquanto(r != 'Fim');
      t <- cu+sbt+glo+rec+red+ban;
      escreval("A soma total é igual a: ", t);
fimalgoritmo