249 оператор Составной оператор в Паскале Производственный календарь на 25 январь месяц