Desconto em produto - portugol

algoritmo "semnome"
// Função :
// Autor : moises ferandes barbosa moises33m@gmail.com
// Data : 02/11/2013
// Seção de Declarações
var
   Nomemercadoria: caractere
   valor, desconto, valorTotal : real
inicio
// Seção de Comandos
escreval("Informe o nome da mercadoria")
leia(Nomemercadoria)
escreval("Informe o valor da compra")
leia(valor)
//nota
//Para saber o valor que corresponde a 5% de 100: 100*0,05 = 5
//Para saber o valor que corresponde a 10% de 100: 100*0,10 = 10
//Para saber o valor que corresponde a 15% de 100: 100*0,15 = 15
desconto <- valor * 0.1 // no caso desconto de 10%
valorTotal <- valor - desconto
escreval("Valor da mercadoria (", Nomemercadoria,") à vista é de", valor, "Reais")
escreval("Valor da mercadoria (", Nomemercadoria,") com desconto de 10% é R$", valorTotal, "Reais")
fimalgoritmo