Инструкция
case
Вариант 1:
case Выражение
of
Список1_Констант: begin
. { инструкции } end;
Список2_Констант: begin
{ инструкции } end;
СписокJ_Констант: begin
{ инструкции } end;
end;
Вариант 2.
case Выражение
of
Список1_Констант: begin
{ инструкции } end;
Список2_Констант: begin
{ инструкции } end;
СписокJ_Констант: begin
{ инструкции J} end;
else
begin
{ инструкции } end;
end;
Инструкции между begin
и end выполняются, если значение выражения, записанного после case, совпадает
с константой из соответствующего списка. Если это не так, то выполняются инструкции,
находящиеся после else, между begin И end.
Примечание
Если между begin и end находится только одна инструкция, то слова begin и end можно не писать.