---

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

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