pascal - множественный выбор (case)

case <переменная_для_точного_сравнения> of
<первая_константа_с_которой_сравнивается_переменная>:  <операторы>;
<вторая_константа_с_которой_сравнивается_переменная>:  <операторы>;
 1:  <операторы>;
 2:  <операторы>;    
 ...
 12: begin <операторы>; end;
<последняя_константа_с_которой_сравнивается_переменная>:  <операторы>
else  begin
    <операторы>;
    write('ошибка');
  end;
end;

Варианты организация ветвления (множественного выбора):

if m = 1 then 
  write('январь');
if m = 2 then 
  write('февраль');
...
if m = 12 then 
  write('декабрь');

case m of
 1:  write('январь');
 2:  write('февраль');    
 ...
 12: write('декабрь')
else write('ошибка')
end;

Число дней в месяце:

case m of 
 2: d:= 28;  { невисокосный год }  
 1,3,5,7,8,10,12: d:= 31
 else d:= 30
end;

Социальный статус:

case v of 
 0..6:  write('дошкольник');    
 7..17: write('школьник')    
 else   write('взрослый')
end;