PROGRAM Case1(Output);
    TYPE
        Colors = (RED, GREEN, BLUE);    { enumeration type }
    VAR
        Color: Colors;
BEGIN
    Color := BLUE;
    CASE Color OF                   { | The selector value BLUE                }
        RED: WriteLn('RED');        { | is not predicted                       }
        GREEN: WriteLn('GREEN')     { | in this case statement                 }
    END;                            { |                                        }
    WriteLn('Done');
END.