var a: array[1..12] of integer=(31,28,31,30,31,30,31,31,30,31,30,31);x: array[1..12] of string=('Январь','Февраль','Март','Апрель','Май','Июнь','Июль','Август','Сентябрь','Октябрь','Ноябрь','Декабрь');y: word;i:byte;

begin
    writeln('Введите год: ');readln(y);
    if y mod 4 <> 0 then writeln('Обычный')
    else
        if y mod 100 = 0 then begin
            if y mod 400 = 0 then
               begin
                 writeln('Високосный');
                 a[2]:=29
               end
            else
               begin
                 writeln('Обычный');
               end;
        end
        else writeln('Високосный');a[2]:=29;
    writeln('Введите месяц: ');readln(y);
    writeln('Месяц: ',x[y],' Количество дней в месяце: ',a[y]);
end.