Готовое решение задачи Паскаль. Решения Pascal. Задачи паскаль. Задачи pascal

Условие Задачи: Решение ТУТ

Ввести последовательность натуральных чисел {aj}j=1...n. Если в последовательности нет чисел, все цифры которых одинаковы, упорядочить последовательность по не убыванию.
Блок схема

___________________________________________________________