var m:integer;
begin
read(m);
if m=1 then
begin
writeln(' Декабрь (31), январь (31) , февраль (28, 29) ');
end;
if m=2 then
begin
writeln(' Март(31), апрель(30), май(31)');
end;
if m=3 then
begin
writeln(' июнь(30), июль (31), август ( 31)');
end;
if m=4 then
begin
writeln(' сентябрь(31), октябрь (30), ноябрь (31)');
end;
end.
если, количество дней не такое, подправишь.