Program Primer;
var
m,g:Integer;
begin
Write('Введите год: ');
ReadLn(g);
Write('Введите номер месяца: ');
ReadLn(m);
if (g mod 4=0) and (m=2)
then WriteLn('В феврале ',g,' года 29 дней')
else
case m 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 день')
else WriteLn('Такого месяца не существует');
end;
end.