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

Question

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

Answer 1

 program m_1;

 var b:integer;

begin

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

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.