Capitulo 4 Homens e mulheres

algoritmo "Homens e mulheres"
// Função :
// Autor : Gustavo Ferreira
// Data : 15/10/2010
// Seção de Declarações 
var
   quantidadeHomens,quantidadeMulheres,idadeHomens,idadeMulheres,idade:inteiro
   pesoMulheres,pesoHomens,peso:real
   sexo:caracter
inicio
   idade<-1
   quantidadeHomens<-0
   quantidadeMulheres<-0
   pesoMulheres<-0
   pesoHomens<-0
   repita
      escreva("Informe o sexo:")
      leia(sexo)
      se (sexo = "M") entao
         quantidadeHomens<-quantidadeHomens +1
         escreval("Informe o peso do homem:")
         leia(peso)
         pesoHomens<- pesoHomens + peso
         escreval("Informe a idade do homem:")
         leia(idade)
         idadeHomens<- idadeHomens + idade
      senao
         quantidadeMulheres<-quantidadeMulheres +1
         escreval("Informe o peso da mulher:")
         leia(peso)
         pesoMulheres<- pesoMulheres + peso
         escreval("Informe a idade da mulher:")
         leia(idade)
         idadeMulheres<- idadeMulheres + idade
      fimse
   ate (idade=0)
   
   escreval("Media de idade das mulheres:",idadeMulheres/quantidadeMulheres)
   escreval("Peso medio dos homens:",pesoHomens/quantidadeHomens)
   escreval("Media de idade de todos:",(idadeHomens+idadeMulheres)/(quantidadeHomens+quantidadeMulheres))
   escreval("Quantidade homens (%): ",(100*quantidadeHomens)/(quantidadeHomens+quantidadeMulheres))
   escreval("Quantidade mulheres (%): ",(100*quantidadeMulheres)/(quantidadeMulheres+quantidadeMulheres))
fimalgoritmo