Conversão de moedas cambio - portugol

algoritmo "semnome"
// Função :
// Autor : moises fernandes barbosa [email protected]
// Data : 02/11/2013
// Seção de Declarações
var
ValorReais, Dolarcompra, Dolarvenda, Eurocompra, Eurovenda : real
valorDolar : real
inicio
// Seção de Comandos
escreva("Informe o valor em reais: ")
leia(valorReais)
escreval
escreval("", valorReais ,"reais equivalem a mais ou menos: " ,valorReais/2 ,"dolares ou" ,valorReais/3 ,"Euros")
//pulalinha
escreval
escreva("Informe a cotação do dolar (compra): ")
leia(Dolarcompra)
escreva("Informe a cotação do dolar (venda): ")
leia(Dolarvenda)

//valorDolar := valorReais / cotacaocompra
//valorDolar := valorReais / cotacaovenda

escreval
escreval("", valorReais ,"reais cotação dolar dia (Compra): " ,valorReais * Dolarcompra ," Dolares")
escreval("", valorReais ,"reais cotação dolar dia (Venda): " ,valorReais * Dolarvenda ," Dolares")
escreval
escreva("Informe a cotação do Euro (compra): ")
leia(Eurocompra)
escreva("Informe a cotação do Euro (venda): ")
leia(Eurovenda)
escreval
escreval("", valorReais ,"reais cotação Euro dia (Compra): " ,valorReais * Eurocompra ," Euros")
escreval("", valorReais ,"reais cotação Euro dia (Venda): " ,valorReais * Eurovenda ," Euros")
fimalgoritmo