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

varn,a,b,c:integer;beginreadln(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) thenwriteln('Есть четная цифра')elsewriteln('Нет четной цифры');end.