Даны два числа А и В. Подсчитайте количество натуральных чисел на отрезке от А до В, сумма цифр которых четна. Нужна программа в Паскале

var b, a, d1, d2, i, j: integer;     c: string; begin      readln(a, b);           for i := a to b do      begin           d1 := 0;           c := inttostr(i);           for j := 1 to length(c) do               d1 := d1 + strtoint(c[j]);           if (d1 mod 2 = 0) then inc(d2);      end;      writeln(d2); end.