---

Процедура ВывестиПирамиду(Число)
    Ч = СокрЛП(Строка(Число));
    
    // Массив: сколько пробелов и сколько нулей в каждой строке
    // Строка 1: 0 пробелов, 13 нулей
    // Строка 2: 1 пробел,   12 нулей
    // Строка 3: 2 пробела,  11 нулей
    // Строка 4: 1 пробел,   12 нулей
    // Строка 5: 0 пробелов, 13 нулей
    
    Пробелы = Новый Массив;
    Пробелы.Добавить(0);
    Пробелы.Добавить(1);
    Пробелы.Добавить(2);
    Пробелы.Добавить(1);
    Пробелы.Добавить(0);
    
    Нули = Новый Массив;
    Нули.Добавить(13);
    Нули.Добавить(12);
    Нули.Добавить(11);
    Нули.Добавить(12);
    Нули.Добавить(13);
    
    Для Сч = 0 По 4 Цикл
        Стр = "";
        
        // Пробелы слева
        Для i = 1 По Пробелы[Сч] Цикл
            Стр = Стр + " ";
        КонецЦикла;
        
        // Нули
        Для i = 1 По Нули[Сч] Цикл
            Стр = Стр + "0";
        КонецЦикла;
        
        // Число
        Сообщить(Стр + Ч);
    КонецЦикла;
КонецПроцедуры

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