Question

Решите пожалуйста 33 бала дам

Answer 1

program Week;

type

  month = (

     January,

     February,

     March,

     April,

     May,

     June,

     July,

     August,

     September,

     October,

     November,

     December

  );

var

  month_days: array [month] of integer = (

      31, 28,

      31, 30, 31,

      30, 31, 31,

      30, 31, 30,

      31

  );

 

  s: month;

begin

 readln(s);

 

 writeln(month_days[s]);

end.