Кол-во дней в месяцах.
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.