---

Процедура Задача7()
    День = 0; Месяц = 0; Год = 0;
    
    ВвестиЧисло(День, "Введите день:");
    ВвестиЧисло(Месяц, "Введите месяц:");
    ВвестиЧисло(Год, "Введите год:");
    
    // Форматируем: год без нулей, месяц и день строго 2 цифры
    ФорматГода = Формат(Год, "ЧГ=0");
    ФорматМесяца = Формат(Месяц, "ЧЦ=2; ЧВН=; ЧГ=0"); // ЧЦ=2 - 2 цифры, ЧВН= - ведущий ноль
    ФорматДня = Формат(День, "ЧЦ=2; ЧВН=; ЧГ=0");
    
    // Собираем строку вида "20120920"
    СтрокаДаты = ФорматГода + ФорматМесяца + ФорматДня;
    
    // Преобразуем в дату
    МояДата = Дата(СтрокаДаты);
    
    // Выводим в удобном формате (ДД.ММ.ГГГГ)
    Сообщить("Вы ввели дату: " + Формат(МояДата, "ДЛФ=Д"));
КонецПроцедуры