---

Процедура ВывестиПирамиду(Число)
    Ч = СокрЛП(Строка(Число));
    
    // Фаза 1: нулей 13, 12, 11
    Нулей = 13;
    Пока Нулей >= 11 Цикл
        Стр = "";
        Для i = 1 По Нулей Цикл
            Стр = Стр + "0";
        КонецЦикла;
        Сообщить(Стр + Ч);
        Нулей = Нулей - 1;
    КонецЦикла;
    
    // Фаза 2: нулей 12, 13 (без повтора 11)
    Нулей = 12;
    Пока Нулей <= 13 Цикл
        Стр = "";
        Для i = 1 По Нулей Цикл
            Стр = Стр + "0";
        КонецЦикла;
        Сообщить(Стр + Ч);
        Нулей = Нулей + 1;
    КонецЦикла;
КонецПроцедуры

// Основной код
Число = 0;
ВвестиЧисло(Число, "Введите целое число", 10, 0);
ВывестиПирамиду(Число);