а в чем проблема? открываете справку и читаете! буквально оттуда информация:
Цитата:
Оператор case состоит из выражения (селектора) и списка операторов, каждый из которых выполнится в определённом случае.
Синтаксис:
case выражение of
вариант : оператор;
...
вариант : оператор;
end
или
case выражение of
вариант : оператор;
...
вариант : оператор;
else оператор
end
Замечания:
"вариант" состоит из одной или большего количества констант или диапазонов, разделённых запятыми. Часть "else" является необязательной.
Пример:
case Ch of
'A' .. 'Z', 'a' .. 'z' : WriteLn('Буква');
'0' .. '9' : WriteLn('Цифра');
'+', '-', '*', '/' : WriteLn('Оператор');
else WriteLn('Специальный символ')
end;
|
Пишите ваш вариант решения, если что неправильно - поправим.