клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях. Если введено не трёхзначное число, должно быть выведено сообщение «Неверное число».
pascal

program chisla;uses crt;var a,b,c,d:integer;beginwrite('Введите трехзначное число');Readln(a);if ((a div 100)>0) and ((a div 100)<=9) then beginb:=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('Нет');endelsewriteln('Неверное число');end.