program x;

   type
      color = (black, brown, red, orange, yellow, green, blue, violet, gray,
               white);

   var
      c: char;
      s: color;
      i: integer;

   procedure stmt;
      begin end;

   begin
      case c of
        'a':                     stmt;
        'b'..'e':                stmt;
        'f', 'g'..'i', 'k'..'m': stmt;
        'n'..'p', 'q':           stmt;
      end;

      case s of
        black..red:              stmt;
        orange, yellow..green:   stmt;
        blue..gray:              stmt;
        otherwise                stmt;
      end;

      case i of
         0..5:                       stmt;
         6, 7..8, 9..10, 11, 12..13: stmt;
         14:                         stmt;
      end;
   end.

