algoritmo "CalculoTaxaEntrega"
var
distancia: real
chovendo: caractere
taxaBase, taxaFinal: real
inicio
escreval("Calculo da taxa de entrega")
escre("Informe a distancia em km: ")
leia(distancia)
se distancia < 0 entao
escreval("Distancia invalida. Deve ser >= 0.")
pare
fimse
escre("Esta chovendo? (sim/nao): ")
leia(chovendo)
chovendo := minusculo(chovendo)
se distancia <= 5 entao
taxaBase := 5.00
senao
se distancia <= 10 entao
taxaBase := 8.00
senao
taxaBase := 10.00
fimse
fimse
taxaFinal := taxaBase
se (chovendo = "sim") entao
taxaFinal := taxaFinal + 2.00
fimse
escreval("Taxa de entrega: R$ ", taxaFinal:0:2)
fimalgoritmo
