[escolhendo pessoas]

olá eu sou novato, porém com base no seu codigo eu consegui formular corretamente

algoritmo "escolhendoPessoas"

var
Sexo,C,A, M,F : caractere
Idade,B,B1 : Inteiro
inicio
  C <- "S"
  B<- 0
  B1 <- 0
  Repita
            Escreva("Qual o sexo? [M/F] ")
            Leia(Sexo)
            Escreva("Qual a idade? ")
            Leia(Idade)
            EscrevaL("Qual a cor do cabelo")
            EscrevaL("-_-_-_-_-_-_-_-_-_-_")
            EscrevaL("|[1]Preto|")
            EscrevaL("|[2]Loiro|")
            EscrevaL("|[3]Ruivo|")
            EscrevaL("|[4]Castanho|")
            Leia(A)
            Escolha A
                    Caso "1"
                         EscrevaL("Quer continuar? [S/N]")
                         Leia(C)
                    Caso "2"
                         Se Sexo = "F" e(idade >=25) e (idade <=30) então
                         B1 <- B1 + 1
                         FimSe
                         EscrevaL("Quer continuar? [S/N]")
                         Leia(C)
                    Caso "3"
                         EscrevaL("Quer continuar? [S/N]")
                         Leia(C)
                    Caso "4"
                         Se Sexo = "M" e (Idade > 18) então
                         B <- B+ 1
                         FimSe
                         EscrevaL("Quer continuar? [S/N]")
                         Leia(C)
            FimEscolha
            LimpaTela
     Ate C = "N"
      EscrevaL("==============")
      EscrevaL("RESUTADO FINAL")
      EscrevaL("==============")
              EscrevaL ("O total de Homens com mais de 18 anos de cabelo castanho é : " , B )
              EscrevaL ("O total de Mulheres entre 25 e 30 anos de cabelos loiros é : ", B1 )

fimalgoritmo