algoritmo "Conversor_Moedas_Funcao"
var
Funcao Real_Dolar (Reais: Real) : Real
Inicio
Retorne Reais/5.42
FimFuncao
R, Valor_Convertido: Real
inicio
Escreval("-------------------------------")
Escreval(" CONVERSOR (R$) -> (US$) ")
Escreval("-------------------------------")
Escreval("Digite o valor em reais (R$): ")
Leia(R)
Valor_Convertido <- Real_Dolar(R)
Escreval("O Valor convertido em US$: ", Valor_Convertido:4:2)
fimalgoritmo