programa
{

	funcao inicio()
	{
		inteiro sexo, homens =0, mulheres=0
		cadeia  sexomedia = "a"
		real altura, alturaf = 0.0, alturam = 2.0, menor= 999
		real maior = 1

		para(inteiro i = 0; i<5; i++){
			escreva("Sexo [1 = M, 2 = F]: ")
			leia(sexo)

		se (sexo == 1){
			homens += 1
			escreva("ALTURA MASCULINO: ")
			leia(altura)
			alturam = altura
			}senao{
				mulheres +=1
			escreva("ALTURA FEMININA: ")
			leia(altura)
			alturaf = altura / 2.0
				}


		se (altura < menor){
			menor = altura
			}
			se(altura > maior){
				maior = altura
				}
		}


limpa()
escreva("TOTAL DE MULHERES: ", mulheres)
escreva("\nTOTAL DE HOMENS: ", homens)
escreva("\nMÉDIA ALTURA FEMININA: ", alturaf)
escreva("\nMENOR ALTURA DO GRUPO: ", menor)
escreva("\nMAIOR ALTURA DO GRUPO: ", maior)

	//basico
	}
}