Вывести все четные цифры из числа - Pascal

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

Всем привет! Помогите пожалуйста. Нужно вывести все четные цифры из числа Например дано число 123456 соответственно нужно вывести из него четные числа 2,4,6 Заранее спасибо за помощь!

Решение задачи: «Вывести все четные цифры из числа»

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

Var n:integer;
Begin
    write('Введите число: ');readln(n);
    While n>0 do
    Begin
      if n mod 10 mod 2 = 0 then writeln(n mod 10);
      n:=n div 10;
    End;
    readln;
End.

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

В данном коде:

Объявлена переменная n типа integer (целое число).
Пользователю предлагается ввести число.
Введенное число сохраняется в переменной n.
Запускается цикл while, который будет выполняться до тех пор, пока n больше 0.
Внутри цикла проверяется, является ли последняя цифра числа четной (проверка n mod 10 mod 2 = 0).
Если последняя цифра числа четная, то она выводится на экран (writeln(n mod 10)).
Затем значение n делится на 10 (n:=n div 10), чтобы убрать последнюю цифру из числа и перейти к следующей.
Цикл while повторяется до тех пор, пока число не станет равным 0.
В конце программы запрашивается ввод (readln;).