Program Case4;
Var
x:Integer;
Begin
ReadLn(x); 
Case x 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.