Дано трехзначное число X. Проверить, будет ли произведение его цифр четным числом

Program n_10;

var a, b, c, x: integer; R:Boolean;

begin

WriteLn ('Введите трехзначное число>>') ;

ReadLn (x) ;

a:=x div 1000;

b: = (x mod 1000) div 100;

c:=x mod 10;

R: = (a*b*c) mod 2 = 0;

WriteLn ('Произведение цифр четно?', R)

end.