program ideone;
type
Meses = (Janeiro := 1, Fevereiro, Marco, Abril, Maio, Junho, Julho, Agosto, Setembro, Outubro, Novembro, Dezembro);
var
mes : Meses;
begin
mes := Meses.Julho;
write(ord(mes));
end.
cHJvZ3JhbSBpZGVvbmU7CnR5cGUKICBNZXNlcyA9IChKYW5laXJvIDo9IDEsIEZldmVyZWlybywgTWFyY28sIEFicmlsLCBNYWlvLCBKdW5obywgSnVsaG8sIEFnb3N0bywgU2V0ZW1icm8sIE91dHVicm8sIE5vdmVtYnJvLCBEZXplbWJybyk7CnZhcgogIG1lcyA6IE1lc2VzOwpiZWdpbgogIG1lcyA6PSBNZXNlcy5KdWxobzsKICB3cml0ZShvcmQobWVzKSk7CmVuZC4=