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