RosettaCodeData/Task/Enumerations/Pascal/enumerations.pas

3 lines
34 B
ObjectPascal

type
phase = (red, green, blue);