PROGRAM Enumerated4(Output);
TYPE
    Color = (White, Red, Orange, Yellow, Green, Blue, Purple, Black);
VAR
    C: Color;
BEGIN
    FOR C := Black DOWNTO Red DO
    BEGIN
        WriteLn(Ord(C))
    END
END.