algoritmo "CalculoImpostoCaminhao" var codEstado, codCarga: inteiro pesoKG, pesoT, precoCarga, valorImposto: real valorTotal: real inicio leia (codEstado, pesoT, codCarga) pesoKG <- pesoT * 1000 escreval("O peso da carga é ", pesoKG) se (codCarga>=10) E (codCarga<=20) entao precoCarga <- pesoKG * 100 senao se (codCarga>=21) E (codCarga<=30) entao precoCarga <- pesoKG * 250 senao precoCarga <- pesoKG * 350 fimse fimse escreval("O preco da carga eh: ", precoCarga) escolha codEstado caso 1 valorImposto <- precoCarga * 35 / 100 caso 2 valorImposto <- precoCarga * 25 / 100 caso 3 valorImposto <- precoCarga * 15 / 100 caso 4 valorImposto <- precoCarga * 5 / 100 outrocaso valorImposto <- 0 fimescolha escreval("O valor do imposto: ", valorImposto) valorTotal <- precoCarga + valorImposto escreval("O valor total: ", valorTotal) fimalgoritmo