В начало

Процедура ПоказатьПодчиневные

 

Процедура ПоказатьПодчиневные (СтрокаДерева, Уровень=0)

            Для Каждого стр Из СтрокаДерева.Строки Цикл

                        отступ = "";

                        Для н = 1 По Уровень Цикл

                                   отступ = отступ + " ";

                        КонецЦикла;

                        Сообщить (отступ + стр.Отдел);

                        ПоказатьПодчиненные (стр, Уровень + 1);

            КонецЦикла;

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