algoritmo "semnome"

var
contador : inteiro
horas, valorHora, salario, totalSalarios: real
nome : caractere
inicio
contador <- 0
totalSalarios <- 0
enquanto (contador < 4) faca
         escreval("Informe o nome do trabalhador::")
         leia(nome)
         escreval("Informe o numero de horas mensais trabalhadas:")
         leia(horas)
         escreval ("valor da hora:")
         leia(valorHora)
         salario <- (horas * valorHora)
         limpatela
         escreval("NOME:", nome)
         escreval("HORAS TRABALHADAS:", horas)
         escreval("SALARIO:", salario)
         contador <- contador + 1
         totalSalarios <- totalSalarios + salario
fimenquanto
escreval("TOTAL SALARIOS:", totalSalarios)

fimalgoritmo