RosettaCodeData/Task/Enumerations/Delphi/enumerations.pas

type
	fruit = (apple, banana, cherry);
	ape = (gorilla = 0, chimpanzee = 1, orangutan = 5);