Нужно определить, сколько дней в месяце по порядковому номеру заданного месяца. Здесь N(1-12) - номер месяца, A(0 или 1) - признак високосности года, 0 -простой год, 1 - високосный год. Pascal.