Sants_021

Boa tarde, estou com o mesmo problema na atividade e mesmo assim não aparece o resultado final, apenas uma parte dele Var codigo, horas_trab :inteiro turno, categoria :caractere sal_minimo, valor_hora, sal_inicial, aux_aliment, sal_final :real Inicio Escreval("Digite o codigo do funcionario:") Leia(codigo) Escreval("Digite o numero de horas trabalhadas no mês:") Leia(horas_trab) Escreval("Digite o turno de trabalho (M-Matutino, V-Vespertino, N-Noturno)") Leia(turno) Escreval("Informe a categoria do (G-Gerente, F-Funcionario)") Leia(categoria) Escreval("Digite o valor do salario minimo:") Leia(sal_minimo) Se (categoria = "G") e (turno = "N")então valor_hora <- sal_minimo * 0.06 fimse se (categoria = "G") e (turno = "M")então valor_hora <- sal_minimo * 0.04 fimse se (categoria = "G") e (turno = "V")então valor_hora <- sal_minimo * 0.04 fimse se (categoria = "F") e (turno = "N")então valor_hora <- sal_minimo * 0.02 fimse se (categoria = "F") e (turno = "M")então valor_hora <- sal_minimo * 0.01 fimse se (categoria = "F") e (turno = "V")então valor_hora <- sal_minimo * 0.01 fimse sal_inicial <- horas_trab * valor_hora escolha (sal_inicial) Caso 0 ate 780 aux_aliment <- sal_inicial * 0.25 Caso 781 ate 1200 aux_aliment <- sal_inicial * 0.20 Caso 1201 ate 9999999 aux_aliment <- sal_inicial * 0.15 fimescolha sal_final <- sal_inicial + aux_aliment Escreval("Codigo:",codigo," Horas Trabalhadas:",horas_trab) Escreval("Valor da Hora Trabalhada:",valor_hora," Salario Inicial:",sal_inicial) Escreval("Auxilio Alimentação:",aux_aliment," Salario Final:",sal_final) fimpara Fimalgoritmo Estou tentando a horas achar o erro, mas parece q e impossível. me ajudem pelo menos a enteder o problema