Desconto salario e porcentagem - portugol

algoritmo "Desconto salario e porcentagem - portugol"
// Função :
// Autor : moises fernandes barbosa [email protected]
// Data : 02/11/2013
// Seção de Declarações
var
   salario, desconto1, desconto2, salariofinal1, salariofinal2 : real
inicio
// Seção de Comandos
escreval("Informe o salario inicial")
leia(salario)
//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
desconto1 <- salario * 0.1
salariofinal1 <- salario - desconto1
desconto2 <- salariofinal1 * 0.05
salariofinal2 <- salariofinal1 - desconto2
escreval("O salario inicial sem descontos é de", salario, "Reais")
escreval("O desconto de 10% corresponde a", salario*0.1, "Reais", " Total com desconto:", salariofinal1, "Reais")
escreval("O novo desconto de 5% é", desconto2, "Reais", " Total liquido com desconto:", salariofinal2, "Reais")
escreval
escreval("Perca de:", salario-salariofinal2, "Reais com impostos")
fimalgoritmo