Variaveis: AdicionalChuva, Chuva, TaxaEntrega5km, TaxaEntrega5_10km, TaxaEntregaAci10km, ValorTotalEntrega, DistanciaCliente,
AdicionalChuva <- 0
TaxaEntrega5km <- 5,00
TaxaEntrega5_10km <- 8,00
TaxaEntregaAci10km <- 10,00
ValorTotalEntrega <- 0
Exiba(" Está chovendo?: ")
Leia(Chuva)
Exiba (" Qual a distancia do cliente?: ")
Leia(DistanciaCliente)
Se (Chuva == "Sim" ou Chuva == "sim") então
AdicionalChuva <- 2,00
Senao
Fimse
Se(DistanciaCliente <= 5) então
ValorTotalEntrega <- AdicionalChuva + TaxaEntrega5km
Senão Se (DistanciaCliente > 5 E DistanciaCliente <= 10) entao
ValorTotalEntrega <- AdicionalChuva + TaxaEntrega5_10km
Senão Se (DistanciaCliente > 10) então
ValorTotalEntrega <- AdicionalChuva + TaxaEntregaAci10km
Senão
Fimse
Exiba ("O valor da entrega será de", ValorTotalEntrega)