uses crt-

var m,year:integer-

begin-

clrscr-

writeln(‘Високосный ли год (1-да,0-нет)’)-

readln(year)-

writeln(‘Введите номер месяца’)-

readln(m)-

IF m = 1 THENwriteln (‘январь, 31-день’)-

IF (m = 2) AND(year = 0) THEN writeln (‘февраль(невисокосный), 28-дней’)-

IF (m = 2) AND(year = 1) THEN writeln (‘февраль(високосный), 29-дней’)-

IF m = 3 THENwriteln (‘март, 31-день’)-

IF m = 4 THENwriteln (‘апрель, 30-день’)-

IF m = 5 THENwriteln (‘май, 31-день’)-

IF m = 6 THENwriteln (‘июнь, 30-день’)-

IF m = 7 THENwriteln (‘июль, 31-день’)-

IF m = 8 THENwriteln (‘август, 31-день’)-

IF m = 9 THENwriteln (‘сентябрь, 30-день’)-

IF m = 10 THENwriteln (‘октябрь, 31-день’)-

IF m = 11 THENwriteln (‘ноябрь, 30-день’)-

IF m = 12 THENwriteln (‘декабрь, 31-день’)-

end.