RosettaCodeData/Task/Conditional-structures/Modula-2/conditional-structures-2.mod2

CASE i OF
  1 : InOut.WriteString('One')
| 2 : InOut.WriteString('Two')
| 3 : InOut.WriteString('Three')
ELSE
  InOut.WriteString('Other')
END