249 оператор Составной оператор в Паскале Календарь рабочих дней на январь 25 года