Вычислить количество целых чисел на промежутке (A,B), которые состоят из нечетных цифр - PascalABC.NET

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

Вычислить количество целых чисел на промежутке (A,B), которые состоят из непарных цифр.

Решение задачи: «Вычислить количество целых чисел на промежутке (A,B), которые состоят из нечетных цифр»

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

function OddDigits(x: integer): boolean;
begin
  var b := true;
  while x > 0 do begin
    if not odd(x mod 10) then begin
      b := false;
      break;
    end;
    x := x div 10;
  end;
  Result := b;
end;
 
begin
  writeln(Range(ReadlnInteger('A:') + 1, ReadlnInteger('B:') - 1).Where(v -> OddDigits(v)).Count);
end.

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

Входные данные: A=1, B=100.
Функция OddDigits проверяет, является ли число нечетным.
Цикл while проверяет каждую цифру числа, начиная с последней.
Если текущая цифра четная, то функция возвращает false и цикл прерывается.
Если текущая цифра нечетная, то функция возвращает true.
Результат функции OddDigits сохраняется в переменной b.
В основной программе вводится интервал чисел с помощью функций ReadlnInteger('A:') и ReadlnInteger('B:').
Используя метод Where, отбираются только те числа из интервала, для которых функция OddDigits возвращает true.
Результат выводится на экран с помощью функции writeln.