PROGRAM Enumerated3(Output);
    TYPE
        Colors = (White, Red, Orange, Yellow, Green, Blue, Purple, Black);
BEGIN
    IF Succ(Orange) = Yellow THEN
        WriteLn(Output, 'Succ(Orange) = Yellow');
    IF Pred(Orange) = RED THEN
        WriteLn(Output, 'Pred(Orange) = Red');
    WriteLn(Output, 'Ord(Orange)=', Ord(Orange))
END.