PASSO 1 inicio real: Valor; caracter: BaseO,BaseD; //declaração de variáveis escreva("Escolha a base de origem, sendo [1] Dolar Americano, [2] Dolar Canadense, [3] Real ou [4] Euro. "); leia(BaseO); escreva(“Escolha a base de destino, sendo [1] Dolar Americano, [2] Dolar Canadense, [3] Real ou [4] Euro”); leia(BaseD); enquanto (BaseO=BaseD) faça //condição de repetição escreva(“Não há conversão para mesma base”); escreva(“Escolha uma nova moeda para converter”); leia(BaseD); fimenquanto; se (BaseO=‘1’ e BaseD=‘2’) então inicio escreva(“Conversão de Dólar Americano para Dolar Canadense”); escreva(“informe a quantia em dólar americano para iniciar a conversão”); leia(Valor); escreva(“O valor da conversão é: CDN$ ”,Valor*0.97); fim; // Cotações em relação ao dólar americano senão se (BaseO=‘1’ e BaseD=‘3’) então inicio escreva(“Conversão de Dólar Americano para Real”); escreva(“informe a quantia em dólar americano para iniciar a conversão”); leia(Valor); escreva(“O valor da conversão é: R$”, valor*1.77); fim; // Cotações em relação ao dólar americano senão se (BaseO=‘1’ e BaseD=‘4’); então inicio escreva(“Conversão de Dólar Americano para Euro”); escreva(“informe a quantia em dólar americano para iniciar a conversão”); leia(Valor); escreva(“O valor da conversão é: €”,Valor*0.72); fim; // Cotações em relação ao dólar americano senão se (BaseO=‘2’ e BaseD=‘1’) então inicio escreva(“Conversão de Dólar Canadense para Dólar Americano”); escreva(“Informe a quantia em dólar canadense para iniciar a conversão”); leia(Valor); escreva(“O valor da conversão é: US$”,Valor* 0.97); fim; // Cotações em relação ao dólar canadense senão se (BaseO=‘2’ e BaseD=‘3’) então inicio escreva(“Conversão de Dólar Canadense para Real”); escreva(“Informe a quantia em dólar canadense para iniciar a conversão”); leia(Valor); escreva(“O valor da conversão é: R$”,Valor*1.73 ); fim;