---

Процедура ПриНачалеРаботыСистемы()
    
    // =========================================================================
    // ЗАДАЧА 3.1. Сообщить рабочий ли сегодня день
    // =========================================================================
    
    Сегодня = ТекущаяДата();
    ДеньНеделиЧисло = ДеньНедели(Сегодня);
    
    // Преобразуем число (1-7) в название дня недели с помощью оператора Выбор
    // В 1С: 1-Пн, 2-Вт, 3-Ср, 4-Чт, 5-Пт, 6-Сб, 7-Вс
    ИмяДняТекст = Выбор(ДеньНеделиЧисло,
        "понедельник",
        "вторник",
        "среда",
        "четверг",
        "пятница",
        "суббота",
        "воскресенье");
    
    // Проверяем выходной ли день (6 - Сб или 7 - Вс)
    Если ДеньНеделиЧисло = 6 ИЛИ ДеньНеделиЧисло = 7 Тогда
        ТекстСообщения = "Сегодня " + Формат(Сегодня, "ДЛФ=DD") + " - " + ИмяДняТекст + ", выходной день.";
        Сообщить(ТекстСообщения);
    Иначе
        ТекстСообщения = "Сегодня " + Формат(Сегодня, "ДЛФ=DD") + " - " + ИмяДняТекст + ", будний день.";
        Сообщить(ТекстСообщения);
    КонецЕсли;
    
    
    // =========================================================================
    // ЗАДАЧА 3.2. Сообщить на какой день недели выпадает 31 декабря в ближайшие 10 лет
    // =========================================================================
    
    ТекущийГод = Год(ТекущаяДата());
    ТекстСообщения10Лет = "31 декабря в ближайшие 10 лет выпадает на:" + Символы.ПС;
    
    Для Счетчик = 0 По 9 Цикл
        Дата31Декабря = Дата(ТекущийГод + Счетчик, 12, 31);
        НомерДня = ДеньНедели(Дата31Декабря);
        
        // Снова используем Выбор для получения названия дня
        ИмяДня = Выбор(НомерДня,
            "понедельник",
            "вторник",
            "среда",
            "четверг",
            "пятница",
            "суббота",
            "воскресенье");
            
        ТекстСообщения10Лет = ТекстСообщения10Лет + (ТекущийГод + Счетчик) + " год: " + ИмяДня + Символы.ПС;
    КонецЦикла;
    
    Сообщить(ТекстСообщения10Лет);

КонецПроцедуры