Desafio: Calculando valor da entrega | Pensamento computacional: fundamentos da computação e lógica de programação

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