Ввести номер месяца и вывести кол-во дней в нем и число ошибок при вводе

 program m_1; var b:integer;beginwriteln('Введите номер месяца');readln(b);if b>=13 then writeln('Вы дурак месяцов всего 12');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.