programa
{
	inclua biblioteca Matematica --> mat
	funcao inicio()
	{
		inteiro sexo1, sexo2, sexo3, sexo4, sexo5,
		inteiro homens= 0, mulheres = 0
		real altura1, altura2, altura3, altura4, altura5, soma = 0, ss, arren

//===================/=======================/======================

//SEXO 1
	escreva("[Pessoa 01] Sexo: F [1] / M [2]: ")
	leia(sexo1)
	se (sexo1 == 1){
		mulheres= mulheres + 1
		}senao se(sexo1== 2)){
			homens++
		}
limpa()
	escreva("[Pessoa 01] Informe a sua altura: ")
	leia(altura1)
	se (sexo1 == 1 e altura1 >= 1){
		soma = soma+ altura1}

//Sexo 02
	escreva("[Pessoa 02] Sexo: F [1] / M [2]: ")
	leia(sexo2)
	se (sexo2 == 1){
		mulheres= mulheres + 1
		}senao se(sexo2 == 2){
			homens++
		}

limpa()
	escreva("[Pessoa 02] Informe a sua altura: ")
	leia(altura2)
	se (sexo2 == 1 e altura2 >= 1){
		soma = soma+ altura2}

//Sexo 03
	escreva("[Pessoa 03] Sexo: F [1] / M [2]: ")
	leia(sexo3)
	se (sexo3 == 1){
		mulheres= mulheres+ 1
		}senao se(sexo3 == 2){
			homens++
		}
limpa()
	escreva("[Pessoa 03] Informe a sua altura: ")
	leia(altura3)
		se (sexo3 == 1 e altura3 >= 1){
		soma = soma + altura3}
//sexo 04
	escreva("[Pessoa 04] Sexo: F [1] / M [2]: ")
	leia(sexo4)
	se (sexo4 == 1){
		mulheres= mulheres+ 1
		}senao se(sexo4 == 2)){
			homens++
		}
limpa()
	escreva("[Pessoa 04] Informe a sua altura: ")
	leia(altura4)
	se (sexo1 == 4 e altura4 >= 1){
		soma = soma + altura4}

//sexo 5
	escreva("[Pessoa 05] Sexo: F [1] / M [2]: ")
	leia(sexo5)
	se (sexo5 == 1){
		mulheres= mulheres+1
		}senao se(sexo5 == 2){
			homens++
		}
limpa()
	escreva("[Pessoa 05] Informe a sua altura: ")
	leia(altura5)
		se (sexo5 == 1 e altura5 >= 1){
		soma = soma + altura5}



ss = soma / mulheres

escreva("\n======================+======================\n")
//Menor altura por pessoa
se (altura1 <= altura2 e altura1 <=altura3 e altura1 <= altura4 e altura1 <= altura5){
	escreva("\nAltura 1 é Menor\n")}
senao se (altura2 <= altura1 e altura2 <=altura3 e altura2 <= altura4 e altura2 <= altura5){
	escreva("\nAltura2 é Menor\n")}
senao se (altura3 <= altura1 e altura3 <=altura2 e altura3 <= altura4 e altura3 <= altura5){
	escreva("\nAltura3 é Menor\n")}
senao se (altura4 <= altura1 e altura4 <=altura2 e altura4 <= altura3 e altura4 <= altura5){
	escreva("\nAltura4 é Menor\n")}
senao se (altura5 <= altura1 e altura5 <=altura2 e altura5 <= altura3 e altura5 <= altura4){
	escreva("\nAltura5 é Menor\n")}

	se (altura1 > altura2 e altura1 > altura3 e altura1 > altura4 e altura1 > altura5 e sexo1==1) escreva("\nA pessoa mais alta da Altura1 e do sexo Feminino")
        senao se (altura1 > altura2 e altura1 > altura3 e altura1 > altura4 e altura1 > altura5 e sexo1==2) escreva("\nA pessoa mais alta da Altura1 e do sexo Masculino")

        senao se (altura2 > altura1 e altura2 > altura3 e altura2 > altura4 e altura2 > altura5 e sexo2==1) escreva("\nA pessoa mais alta da Altura2 e do sexo Feminino")
        senao se (altura2 > altura1 e altura2 > altura3 e altura2 > altura4 e altura2 > altura5 e sexo2==2) escreva("\nA pessoa mais alta da Altura2 e do sexo Masculino")

        senao se (altura3 > altura2 e altura3 > altura1 e altura3 > altura4 e altura3 > altura5 e sexo3==1) escreva("\nA pessoa mais alta da Altura3 e do sexo Feminino")
        senao se (altura3 > altura2 e altura3 > altura1 e altura3 > altura4 e altura3 > altura5 e sexo3==2) escreva("\nA pessoa mais alta da Altura3 e do sexo Masculino")

        senao se (altura4 > altura1 e altura4 > altura2 e altura4 > altura3 e altura5 > altura5 e sexo4==1) escreva("\nA pessoa mais alta da Altura4 e do sexo Feminino")
        senao se (altura4 > altura2 e altura4 > altura3 e altura4 > altura1 e altura4 > altura5 e sexo4==2) escreva("\nA pessoa mais alta da Altura4 e do sexo Masculino")

        senao se (altura5 > altura2 e altura5 > altura3 e altura5 > altura4 e altura5 > altura1 e sexo5==1) escreva("\nA pessoa mais alta da Altura5 e do sexo Feminino")
        senao se (altura5 > altura2 e altura5 > altura3 e altura5 > altura4 e altura5 > altura1 e sexo5==2) escreva("\nA pessoa mais alta da Altura5 e do sexo Masculino")

		arren= mat.arredondar(ss, 3)
escreva("\nO total de MULHERES: ",mulheres)
escreva("\nMédia das MULHERES: ", ss )
escreva("\nO total de HOMENS:",homens)
escreva("\n======================+======================\n")

	}
}