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

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.