клавиатуры вводится трёхзначное число. Необходимо вывести ответ Да, если все его

Program chisla;
uses crt;
var a,b,c,d:integer;
begin
write('Введите трехзначное число');
Readln(a);
if ((a div 100)gt;0) and ((a div 100)lt;=9) then
begin
b:=a div 100;
c:=(a-(b*100)) div 10;
d:=a-b-(c*10);
if ((b/2)=(b div 2)) and ((c/2)=(c div 2)) and ((d/2)=(d div 2)) then Writeln('Да') else writeln('Нет');
end
else
writeln('Неправильное число');
end.