Помогите решить.
В заданном натуральном трехзначном числе имеется четная цифра.Pascal

Разберём число на три цифры:

• сотни: n div 100;

• десятки: (n div 10) mod 10;

• единицы: n mod 10.

Цифра чётная, если остаток от деления на 2 равен нулю. Ноль тоже считается чётной цифрой.

pascal
program EvenDigit;

var
  n, a, b, c: integer;

begin
  readln(n);

  a := n div 100;          { цифра сотен }
  b := (n div 10) mod 10;  { цифра десятков }
  c := n mod 10;           { цифра единиц }

  if (a mod 2 = 0) or (b mod 2 = 0) or (c mod 2 = 0) then
    writeln('YES')
  else
    writeln('NO');
end.

Например, для числа 135 программа выведет NO, так как все цифры нечётные.
Для числа 101 будет YES, потому что цифра 0 — чётная.