//Só consigo fazer rodar o seletor de mulher loiro, o do homem não reconhece. Poderia me ajudar a encontrar meu erro?
var
I,C,cast,loiro:inteiro
S,R:caractere
F,M:logico
inicio
// Seção de Comandos
F<- (S=F)
M<- (S=M)
cast <- 0
loiro <-0
Repita
EscrevaL("=============================")
EscrevaL(" Seletor de Pessoas ")
EscrevaL("=============================")
Escreva("Qual o sexo? [F/M]:")
Leia(S)
Escreva("Qual a idade?")
Leia(I)
EscrevaL("Qual a cor do cabelo?")
EscrevaL("[1]Preto")
EscrevaL("[2]Castanho")
EscrevaL("[3]Loiro")
EscrevaL("[4]Ruivo")
Leia(C)
Se (S=M) e (I>=18) e (C=2)entao
cast <- cast + 1
FimSe
Se (S=F) e (I>=25) ou (I<=30) e (C=3)entao
loiro <- loiro + 1
FimSe
EscrevaL("Quer continuar [S/N])")
Leia(R)
Limpatela
Ate (R= "N")
EscrevaL("Total de homens com mais de 18 anos e cabelos castanho",cast)
EscrevaL("Total de mulheres entre 25 e 30 anos e cabelos loiros",loiro)
fimalgoritmo