Algoritmo "CalcularValorEntrega"
Var
distancia, taxaBase, valorFinal: real
chovendo: logico
Inicio
Escreva("Digite a distância até o cliente em km: ")
Leia(distancia)
Escreva("Está chovendo? (verdadeiro ou falso): ")
Leia(chovendo)
Se distancia <= 5 Entao
taxaBase = 5
Senao
Se distancia <= 10 Entao
taxaBase = 8
Senao
taxaBase = 10
FimSe
FimSe
Se chovendo = verdadeiro Entao
taxaBase = taxaBase + 2
FimSe
valorFinal = taxaBase
Escreva("Taxa de entrega: R$ ", valorFinal, ",00")
FimAlgoritmo