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

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.