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