ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
a: РЯД 10 ИЗ ЦЕЛ;
сч: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
a[сч] := Приём.Число();
Вывод.Цепь(" ")
КОН;
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
Вывод.ЧЦел("^%d", a[сч], 0, 0, 0)
КОН
КОН Задание.