victornaduvida

faça um programa que receba 4 menções, uma pra cada bimestre e receba a frequência do aluno ao longo do ano. retorne a base nas menções e frequencias a menção final do ano. essa ai em baixo é a tabela alguém me ajuda a simplificar e fazer certo por favor m1,m2,m3,m4, r: caractere f: real Inicio escreval("digite todas as menções") leia(m1,m2,m3,m4) escreval(" digite a frequência") leia(f) se(m1= "mb") e (m2="mb")e (m3= "mb") e (m4="mb")e (f >= 90) então escreval(" sua menção final é mb") fimse se(m1= "b") e (m2="b")e (m3= "mb") e (m4="mb")e (f >= 90) então escreval(" sua menção final é mb") fimse se(m1= "b") e (m2="b")e (m3= "mb") e (m4="mb")e (f < 90) então escreval(" sua menção final é b") fimse se(m1= "b") e (m2="b")e (m3= "b") e (m4="b")e (f >= 90) então escreval(" sua menção final é mb") fimse se(m1= "b") e (m2="b")e (m3= "r") e (m4="r")e (f >= 90) então escreval(" sua menção final é b") fimse se(m1= "b") e (m2="b")e (m3= "r") e (m4="r")e (f < 90) então escreval(" sua menção final é r") fimse se(m1= "r") e (m2="r")e (m3= "r") e (m4="r")e (f >= 90) então escreval(" sua menção final é r") fimse se(m1= "r") e (m2="r")e (m3= "r") e (m4="r")e (f >= 90) então escreval(" sua menção final é r") fimse se(m1= "r") e (m2="r")e (m3= "i") e (m4="i")e (f >= 90) então escreval(" sua menção final é r") fimse se(m1= "r") e (m2="r")e (m3= "i") e (m4="i")e (f < 90) então escreval(" sua menção final é i") fimse se(m1= "i") e (m2="i")e (m3= "i") e (m4="i")e (f < 90) então escreval(" sua menção final é i") fimse