Даны два числа А и В. Подсчитайте количество натуральных чисел…

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.