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.