Bisa

Sou novo aqui no fórum e não estou conseguindo resolver o seguinte algoritmo usando o VisuAlg. Alguém pode me ajudar!!! Socorro.... //Elabore um algoritmo para ler: //O valor da mensalidade do curso; //O turno do curso escolhido (M para manhã, T para tarde e N para noite); //Categoria do aluno (B para baixa renda e N para renda normal); //O algoritmo deve calcular e exibir: //Valor total do curso durante 1 ano (valor da mensalidade do curso vezes 12); //O valor da mensalidade do aluno. Essa mensalidade poderá sofrer alterações, dependendo do turno escolhido e da categoria do aluno, conforme descrito abaixo: //- Caso o turno escolhido for M (manhã), não haverá nenhum desconto; //- Caso o turno escolhido for T (tarde), será atribuído um desconto de 5%; //- Caso o turno escolhido for N (noite), será atribuído um desconto de 10%; //ATENÇÃO: Para alunos classificados na categoria de renda familiar baixa, será acrescido um desconto adicional de 10%. //Tentei resolver assim... Mas não está calculando var mensalidade : real Turno : literal Categoria : literal mensal : real valortotal : real inicio // Seção de Comandos escreva ("Valor da mensalidade:") leia (mensalidade) escreva (" Digite o turno, M (manhã), T (tarde) ou N (noite):") leia (Turno) escreva (" Categoria do aluno (B para baixa renda e N para renda normal):") leia (categoria) se (Turno="M") e (Categoria = "N")então mensal := mensalidade escreval("mensalidade:", mensal) senao se (Turno="M") e (Categoria = "B") então mensal := 0,90*mensalidade escreval("mensalidade:", mensal) senao se (Turno="T") e (Categoria = "N") então mensal := 0,95*mensalidade escreval("mensalidade:", mensal) senao se (Turno="T") e (Categoria = "B") então mensal := 0,85*mensalidade escreval("mensalidade:", mensal) senao se (Turno="N") e (Categoria = "N") então mensal := 0,90*mensalidade escreval("mensalidade:", mensal) senao se (Turno="N") e (Categoria = "B") então mensal := 0,80*mensalidade escreval("mensalidade:", mensal) senao Escreva ("Digite uma infomção válida!!!") fimse fimse fimse fimse fimse fimse valortotal := mensal*12 escreval("Custo Anual:", valortotal)