PROGRAM Enumerated2(Output);
    TYPE
        Color = (White, Red, Orange, Yellow, Green, Blue, Purple, Black);
        Sex   = (Male, Female);
        Day   = (Mon, Tue, Wed, Thu, Fri, Sat, Sun);
        Operators = (Plus, Minus, Times, Divide);
        Continent = (Africa, Antarctica, Asia, Europe, Australia, NorthAmerica,
                        SouthAmerica);
    VAR
        C: Color;
        S: Sex;
        D: Day;
        O: Operators;
        G: Continent;
BEGIN
    C := Orange;
    S := Female;
    D := Sun;
    O := Plus;
    G := Europe;

    WriteLn(Output, 'C = ', Ord(C));
    WriteLn(Output, 'S = ', Ord(S));
    WriteLn(Output, 'D = ', Ord(D));
    WriteLn(Output, 'O = ', Ord(O));
    WriteLn(Output, 'G = ', Ord(G));
END.