Enumera1()
{
inteiro dia;
enumeracao Semana = {domingo,segunda,terca,quarta,quinta,sexta,sabado };
repita
{
leia("informe o dia (1 a 7): ", dia );
se (dia==segunda) { escreva("segunda"); }
se (dia==terca) { escreva("terca"); }
se (dia==quarta) { escreva("quarta"); }
se (dia==quinta) { escreva("quinta"); }
se (dia==sexta) { escreva("sexta"); }
se (dia==sabado) { escreva("sabado"); }
se (dia==domingo) { escreva("domingo"); }
} ate (dia == 0);
}