Цифры трёхзначного числа n: n div 100; n div 10 mod 10; n mod 10
Проверка на чётность: n.isEven или n mod 2 = 0
PascalABC.NET:
begin
var n := ReadInteger;
var a := n div 100;
var b := n div 10 mod 10;
var c := n mod 10;
if (a mod 2 = 0) then write(a);
if (b mod 2 = 0) then write(b);
if (c mod 2 = 0) then write(c);
end.
Пример ввода: 190
Пример вывода: 0
Пример ввода: 228
Пример вывода: 228
Пример ввода: 173
Пример вывода: (пустая строка)