Дано трехзначное число 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.