Algoritmo Alturas

/*
 * Tem-se um conjunto de dados contendo a altura e o sexo (masculino, feminino) de
10 pessoas. Fazer um programa que calcule e escreva: A maior e a menor altura do
grupo, a média de altura das mulheres, o número de homens.
 */
programa
{

	funcao inicio()
	{
	 inteiro idade, totalMulheres=0,totalHomens=0
	 cadeia sexo
	 real altura=0.00, maiorAltura=0.00, menorAltura=999.00, mediaMulheres=0.00, somaMulheres=0.00
	 para (inteiro p=1; p<=10;p++) {
	 	escreva ("Digite o sexo (M) ou (F): ")
	 	leia (sexo)
	 	escreva ("Informe a altura: ")
	 	leia (altura)
	 	se (altura > maiorAltura) {
	 		maiorAltura = altura
	 	}
	 	se (altura < menorAltura) {
	 		menorAltura = altura
	 	}
	 	se (sexo=="M") {
	 		totalHomens++
	 	}
	 	se (sexo=="F") {
	 		totalMulheres++
	 		somaMulheres = somaMulheres+altura
	 	}

	 	}
	 	mediaMulheres = somaMulheres/totalMulheres

	 	escreva ("Maior altura: "+maiorAltura + "\n")
	 	escreva ("Menor altura: "+menorAltura + "\n")
	 	escreva ("Média mulheres: "+mediaMulheres+ "\n")
	 	escreva ("Total Homens: "+totalHomens+ "\n")
	 }
}