PROGRAM Enumerated1(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 = ', C);     { | direct use of Write is not             }
    WriteLn(Output, 'S = ', S);     { | allowed in ISO 7185 pascal             }
    WriteLn(Output, 'D = ', D);     { |                                        }
    WriteLn(Output, 'O = ', O);     { |                                        }
    WriteLn(Output, 'G = ', G);     { |                                        |
END.