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