Algoritmo Taxa_de_entrega;
Var
distancia, taxa : Real;
esta_chovendo : Boolean;
Início
Leia(distancia);
Leia(esta_chovendo);
Se (distancia <= 5) Então
taxa = 5;
Senão Se (distancia <= 10) Então
taxa = 8;
Senão
taxa = 10;
Fim Se;
Fim Se;
Se esta_chovendo Então
taxa = taxa + 2;
Fim Se;
Imprime(taxa);
Fim.