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.