Помогите решить.

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

Var

n, a, b, c:integer;

begin

readln (n) ;

//Найдём 3 цифры

a:=n div 100;

b: = (n mod 100) div 10;

c:=n mod 10;

if (a mod 2 = 0) OR (b mod 2 = 0) OR (c mod 2 = 0) then

writeln ('Есть четная цифра')

else

writeln ('Нет четной цифры') ;

end.