{ 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 }