Enumera3()
{
n:inteiro;
Moeda:Enumeracao = {
franco,marco,libra,dolar,
xiling,lira,florim,coroa,
rublo,cruzado,cruzeiro,real,yen
};
repita
{
leia("informe um numero de 1 a 13, 0 p/ sair: ", n);
se (n==franco)
{
escreva("acertou !");
}
senao
{
escreva("errou !");
}
} ate (n == 0);
}