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

 program m_1;

 var b:integer;

begin

writeln('Введите номер месяца');

readln(b);

if bgt;=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.