uses crt;
var m,year:integer;
begin;
clrscr;
writeln('Високосный ли год (1-да,0-нет)');
readln(year);
writeln('Введите номер месяца');
readln(m);
IF m = 1 THEN writeln ('январь, 31-день');
IF (m = 2) AND (year = 0) THEN writeln ('февраль(невисокосный), 28-дней');
IF (m = 2) AND (year = 1) THEN writeln ('февраль(високосный), 29-дней');
IF m = 3 THEN writeln ('март, 31-день');
IF m = 4 THEN writeln ('апрель, 30-день');
IF m = 5 THEN writeln ('май, 31-день');
IF m = 6 THEN writeln ('июнь, 30-день');
IF m = 7 THEN writeln ('июль, 31-день');
IF m = 8 THEN writeln ('август, 31-день');
IF m = 9 THEN writeln ('сентябрь, 30-день');
IF m = 10 THEN writeln ('октябрь, 31-день');
IF m = 11 THEN writeln ('ноябрь, 30-день');
IF m = 12 THEN writeln ('декабрь, 31-день');
end.