Количество дней

Задано одно число — номер месяца в не високосном году. Выведите количество дней в этом месяце.
var
 b:shortint;
 begin
 read(b);
 case b of
  1:writeln(31);
  2:writeln(28);
  3:writeln(31);
  4:writeln(30);
  5:writeln(31);
  6:writeln(30);
  7:writeln(31);
  8:writeln(31);
  9:writeln(30);
  10:writeln(31);
  11:writeln(30);
  12:writeln(31);
 end;
 end.