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

Twist2323

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

Twist2323

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.