programa
{

	funcao inicio()
	{
		inteiro homens=0, mulheres=0, sex, p, invalido = 0
		cadeia nome[55], totalf[55], totalm[55]
		inteiro contador = 0

		escreva("Quantas pessoas: ")
		leia(p)

		para(inteiro i = 0; i <= p ; i++){
		escreva("\nInforme seu sexo: ")
		leia(sex)

		se (sex == 1){
				sex = homens++
				escreva("Seu nome Senhor: ")
				leia(totalm[contador])
				contador = contador++
						limpa()

			}senao se (sex == 2){
				sex = mulheres++
				escreva("Seu nome Senhora: ")
				leia(totalf[contador])
				contador = contador++
						limpa()

				}senao {
					sex = invalido++
					contador = contador++
					}


		}
		escreva("M: ", homens, ", F: ", mulheres, ", Ivalido:", invalido "\n")

		para(inteiro v = 0; v <p; v++){
		escreva("\nNomes Masculinos ", totalm[v])
		escreva("\nNomes Femininos ",totalf[v] )
		}




//basico
	}
}