Множества. Вывести в возрастающем порядке все цифры, входящие в десятичную запись некоторого числа n - Pascal ABC

Формулировка задачи:

Вывести в возрастающем порядке все цифры,входящие в десятичную запись некоторого числа n.

Данное задание актуально

Решение задачи: «Множества. Вывести в возрастающем порядке все цифры, входящие в десятичную запись некоторого числа n»

Листинг программы

var
  n: integer;
  m: set of byte;
  i: byte;
  
begin
  ReadLn(n); n := Abs(n);
  while n > 0 do
  begin
    Include(m, n mod 10);
    n := n div 10
  end;
  for i := 0 to 9 do
    if i in m then Write(i, ' ')
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

Создаются переменные: n (целое число), m (множество байтов) и i (байт).
Считывается значение переменной n с помощью функции ReadLn.
Значение переменной n преобразуется в абсолютное значение с помощью оператора Abs.
Запускается цикл while, который выполняется до тех пор, пока значение переменной n больше нуля.
Внутри цикла значение переменной n преобразуется в десятичную форму с помощью оператора mod и затем включается в множество m с помощью оператора Include.
Затем значение переменной n делится на 10 с помощью оператора div и результат присваивается переменной n.
После завершения внутреннего цикла while происходит внешний цикл for, который проходит по всем цифрам от 0 до 9.
Если цифра находится в множестве m (что проверяется с помощью условия if i in m), то она выводится на экран с помощью функции Write.
Цикл for завершается после прохождения всех цифр от 0 до 9. Таким образом, данный код выводит на экран все цифры, входящие в десятичную запись некоторого числа n.