Загрузка данных

Процедура Задача3()
    ДатаВвода = '00010101';
    ВвестиДату(ДатаВвода, "Введите любую дату (день, месяц, год):");
    
    // Находим первый день месяца
    НачалоМесяца = НачалоМесяца(ДатаВвода);
    // Находим последний день месяца (последний день след. месяца минус 1 секунда)
    КонецМесяца = КонецМесяца(ДатаВвода);
    
    ТекущаяДата = НачалоМесяца;
    
    Сообщить("--- Дни месяца " + Формат(ДатаВвода, "ДЛФ=ММММ ГГГГ") + " ---");
    
    Пока ТекущаяДата <= КонецМесяца Цикл
        Сообщить(Формат(ТекущаяДата, "ДЛФ=Д"));
        ТекущаяДата = ТекущаяДата + 86400; // + 1 день (86400 секунд в сутках)
    КонецЦикла;
КонецПроцедуры