249 оператор Составной оператор в Паскале Календарь на 2025г без праздников