program EvenNumbers;
var
    s : string[3]; {число легче прочитать по цифрам если оно строка}
begin
    writeln('Enter the number');
    readln(s);
    writeln('Even numbers');
    {с помощью функции ord получаем порядок символа в ASCII, таким образом переводим char в integer и смотрим делится ли число на 2 без остатка}
    if((ord(s[1]) mod 2) = 0) then write(s[1] + ' ');
    if((ord(s[2]) mod 2) = 0) then write(s[2] + ' ');
    if((ord(s[3]) mod 2) = 0) then write(s[3] + ' ');
end.