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

program prog;uses crt;var x,k:integer;begin;clrscr;write('Введите трехзначное число х = ');readln(x);if ((x div 1000) = 0) and   (abs(x div 100)>0 )thenbegin     while abs(x)>0 do begin;     if (x mod 10) mod 2=0 then k:=k+1;     x:= x div 10;     end;if k=3 then writeln('Да')else    writeln('Нет');endelsewriteln('Неверное число');end.