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

8 lines
128 B
ObjectPascal

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