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