repete
[instruções]
até[condição]
Repete as instruções até que a condição seja verdadeira.
Solicita a introdução de um mês até o utilizador introduzir um valor válido ( entre 1 e 12)
inicio
inteiro mes
repete
escrever "introduza um mes :"
ler mes
ate mes > 0 e mes < 13
escrever "\nmes introduzido :" , mes
fim
introduza um mes :-10
introduza um mes :20
introduza um mes :5
mes introduzido :5