VisualG fazer certo e em simplificar, menções dos alunos

[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

 

[devair1010]

@victornaduvida    você no postou a tabela ,   e identar o código já ajuda a melhorar , e no visualG 3.0.6.5 você pode identar automático clicando em CTRL + G .