Algoritmo e programação

algoritmo "11"
// Data : 26/11/2013
// Seção de Declarações
//A prefeitura de uma cidade fez uma pesquisa entre seus habitantes, coletando dados sobre o salário e número de filhos.  A prefeitura deseja saber: ·
// a) média do salário da população;
// b) média do número de filhos;
// c) maior salário;
// d) percentual de pessoas com salário até R$250,00.

var
salario, filhos, mediasalario, mediafilhos, totalsalario, maiorsalario : real
quantidade250, totalfamilia, totalfilhos, percentual :real

inicio
mediasalario <-0
mediafilhos <-0
maiorsalario <-0
quantidade250 <-0
totalfamilia <-0

escreval ("Digite a quantidade de filhos")
leia (filhos)
escreval ("Digite o salário da familia")
leia (salario)
enquanto (salario >0) faca

totalsalario <- totalsalario + salario
totalfilhos <- totalfilhos + filhos
totalfamilia <- totalfamilia + 1
se (salario > maiorsalario) entao
maiorsalario <- salario
fimse

se (salario <= 250) entao
quantidade250 <- +1
fimse
limpatela

escreval ("PARA SAIR DIGITE A QUANTIDADE DE FILHOS E O SALÁRIO COM O VALOR [0]")
escreval ("Digite a quantidade de filhos")
leia (filhos)
escreval ("Digite o salário da familia")
leia (salario)

mediasalario <-totalsalario / totalfamilia
mediafilhos <- totalfilhos / totalfamilia
percentual <- quantidade250 * 100 / totalfamilia
escreval ("A média de salário da população é de R$ ",mediasalario)
escreval ("A média de filhos por familia é de : ", mediafilhos)
escreval ("O maior salário encontrado foi de R$ : ",maiorsalario)
escreval ("O percentual de familias com salário de até R$ 250,00 reais é de :",percentual)
fimenquanto
fimalgoritmo