с клавиатуры вводится натуральное четырёхзначное число n. выведете количество учётных цифр этого числа.

Var
a,k:integer;
begin
repeat
   writeln('введите 4-х значное');
   readln(a);
until (a>999)and(a<10000);
   while a>0 do
        begin
           if (a mod 10) mod 2=0 then
               k:=k+1;
           a:=a div 10;
        end;
if k=0 then
   writeln('четных нет')
else 
   writeln(k);
end.