Напишите программу которая считает количество чётных цифр введённого числа

var
 a, b, s: integer; // объявление переменных целочисленного типа.

begin
   write (Введите число:); // вывод строчки на экран.
   read(a); // считываем значение переменной, введенной с клавиатуры.
   while a gt; 0 do // начало цикла.
     begin
        b := a mod 10; // определяем заключительную цифру справа в числе.
        if (b mod 2 = 0) then // если цифра четная, то считаем сумму.
          s:= s + 1;
        a := a div 10; // устраняем заключительную справа цифру в числе.
     end;
  writeln(Количество четных цифр введенного числа равно: , s); // вывод строчки на экран.
end.