Подсчитать колл-во четных цифр в определённом диапазоне чисел - Pascal ABC

Формулировка задачи:

Света написала в тетради все натуральные числа от A до B. Сколько написала Света четных цифр? Вроде простенькая задача но перебором слишком много времени как можно оптимизировать чтобы быстрее работала программа?

var a,b,c,z,k,i:int64;
begin
readln(a,b);
for i:=a to b do begin
c:=i;
while c>0 do
begin
z:=c mod 10;
c:=c div 10;
if z mod 2=0
then k:=k+1 end; end;
write(k);
end.

Решение задачи: «Подсчитать колл-во четных цифр в определённом диапазоне чисел»

Листинг программы

var a,b,c,k,i:int64;
begin
readln(a,b);
for i:=a to b do
begin
  c:=i;
  if c mod 2=0
  then k:=k+1;
end;
write(k);
end.

Объяснение кода листинга программы

Объявлены пять переменных: a, b, c, k, i типа int64.
Переменные a и b инициализируются с помощью функции readln().
В цикле от a до b происходит проверка каждого числа на четность с помощью оператора mod.
Если число четное, то к переменной k прибавляется единица.
По завершении цикла, в файл write() выводится значение переменной k.