Даётся два целых натуральных числа А и В. Нужно посчитать сколько существует чисел от А до В, включительно , у которых все цифры в десятичной записи четные. ПРИМЕР:
стандартный ввод: 3 10
вывод: 3
ПОМОГИТЕ ПОЖАЛУЙСТА ПРОШУУ

===== PascalABC.NET =====

function AllEven(n: integer): boolean;

begin

 Result := True;

 while n > 0 do

 begin

   if (n mod 10).IsOdd then

   begin

     Result := False;

     exit

   end;

   n := n div 10

 end;

end;

begin

 var (a, b) := ReadInteger2;

 var k := 0;

 for var i := a to b do

   if AllEven(i) then

     k += 1;

 Write(k)

end.