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