{ File: giornimes.pas }

{ Scopo: uso del case-of }

program GiorniDelMese;
{ Legge un mese e determina il numero di giorni del mese.
  Non tiene conto di anni bisestili. }

var
  mese            : 1..12;
  giorni_del_mese : 28..31;

begin
  write('Mese (1..12) ? ');
  readln(mese);

  case mese of
    9,4,6,11        : giorni_del_mese := 30;
    1,3,5,7,8,10,12 : giorni_del_mese := 31;
    2               : giorni_del_mese := 28;
  end; { case }

  writeln('Giorni : ', giorni_del_mese)
end. { GiorniDelMese }