Επιλογή περιπτώσεων

Παράδειγμα:
case c of
	'A' : writeln('alpha');
	'B', 'C' : writeln('beta');
	'1', '2': writeln('digit');
end