Boa noite, gente.
Estou tendo um problema com o visualg. escrevi um código aparentemente sem nenhum erro, porém o visualg acusa erro. Estou usando a estrutura de repetição "repita", sendo que no final do código eu coloquei, devidamente, o "ate", e com isso o visualg acusa erro dizendo que eu estou utilizando o "ate" sem o "repita" correspondente, mesmo eu escrevendo o "repita" antes do até, no começo do código. Mesmo que eu tire o "ate" o programa dá erro, acusando que está faltando o "ate".
segue o código:
algoritmo "semnome"
var
sexo, c, m, f:caractere
idade, corm, ch, ml:inteiro
inicio
repita
escreval("qual o sexo? [M/F] ")
leia(sexo)
escolha sexo
caso "M"
escreval("qual idade? ")
leia(idade)
escreval("cor do cabelo? ")
escreval("[1] PRETO")
escreval("[2] CASTANHO")
escreval("[3] LOIRO")
escreval("[4] RUIVO")
leia(corm)
escolha corm
caso 1
escreval("continuar? [S/N]")
leia(c)
limpatela
caso 2
escreval("continuar? [S/N]")
se idade > 18 entao
ch <- + 1
fimse
leia(c)
limpatela
caso 3
escreval("continuar? [S/N]")
leia(c)
limpatela
caso 4
escreval("continuar? [S/N]")
leia(c)
limpatela
caso "f"
escreval("qual idade? ")
leia(idade)
escreval("cor do cabelo? ")
escreval("[1] PRETO")
escreval("[2] CASTANHO")
escreval("[3] LOIRO")
escreval("[4] RUIVO")
leia(corm)
escolha corm
caso 1
escreval("continuar? [S/N]")
leia(c)
limpatela
caso 2
escreval("continuar? [S/N]")
leia(c)
limpatela
caso 3
escreval("continuar? [S/N]")
leia(c)
se (idade >= 25) (idade <= 30) entao
ml <- ml + 1
fimse
limpatela
caso 4
escreval("continuar? [S/N]")
leia(c)
limpatela
fimescolha
fimescolha
ate c = "s"
escreval("existem ", ch, " homens com mais de 18 anos e castanho")
escreval("existem ", ml, " mulheres entra 25 e 30 anos loiras")
fimalgoritmo
Me perdoem se escrevi algo errado ou no local errado. é a primeira vez que posto uma dúvida aqui.