RosettaCodeData/Task/Conditional-structures/Pascal/conditional-structures-3.pas

Case X of
   'A'           : statement ;
   'B'           : statement ;
   in ['C'..'W'] : statement ;
else
   Statement ;
end;