VAR
maisNovo,maisVelho,qtdEntrevistados, idadeInformada: inteiro
porcentagemMenorIdade,mediaIdade,qtdMenoresIdades, somaIdades: real
INICIO
maisNovo <- 9999
maisVelho <- 0
qtdEntrevistados <- 0
qtdMenoresIdades <- 0
enquanto qtdEntrevistados < 5 faca
escreval ("favor, informe sua idade")
leia (idadeInformada)
se idadeInformada >= maisVelho então
maisVelho <- idadeInformada
fimse
se idadeInformada =< maisNovo então
maisNovo <- idadeInformada
fimse
se idadeInformada < 18 então
qtdMenoresIdade <- qtdMenoresIdade + 1
fimse
qtdEntrevistados <- qtdEntrevistados + 1
FIMENQUANTO
Escreval ("Mais novo", mais novo)
Escreval ("Mais velho", mais velho)
porcetagemMenorIdade <- (qtdMenoresIdades/ 5) * 100
Escreval ("Porcetagem menor idade",porcetagemMenorIdade, "%")
mediaIdade <- somaIdades / 5
Escreval ("Media de idade",mediaIdade)