Определить кол-во нечётных цифр числа с блок-схемы

Function t10_q(x,q:longint):string;
const
  s='0123456789ABCDEFGHI';
var
  t,m:longint;
  r:string;
begin
  t:=x; r:='';
  while t>=q do
  begin
    m:=t mod q;
    r:=s[m+1]+r;
    t:=t div q
  end;
  t10_q:=s[t+1]+r
end;

{ тестирование }
var
  q,n:longint;
begin
  Write('Введите основание системы счисления (2-20): '); Readln(q);
  Write('Введите натуральное число для перевода: '); Readln(n);
  Writeln(n,'(10)=',t10_q(n,q),'(',q,')')
end.

Тестовое решение:
Введите основание системы счисления (2-20): 16
Введите натуральное число для перевода: 16350
16350(10)=3FDE(16)

16. 4 числа:
1915 – не могло: в порядке неубывания число делится на 1 и 915, 915 – не сумма двух цифр
20 – не могло: не делится на два числа в порядке неубывания, только 2 и 0
101 – не могло: не делится на два числа в порядке неубывания, только 10 и 1
1213 – могло, например, для числа 6667
1312 – не могло: в порядке неубывания число делится на 1 и 312, 312 – не сумма двух цифр
312 – могло, например, для числа 1266
1519 – не могло: в порядке неубывания число делится на 1 и 519 или 15 и 19, 519 и 19 – не сумма двух цифр
112 – могло, например, для числа 1066
1212 – могло, например, для числа 6666
 
10. Дан массив [1, 5, 3, 6, 7, 12, 1, 3, 3, 1]. 
Изначально m = 0, при обходе массива если элемент Lose[t] больше 3, то к m прибавляется Lose[t].
Значит, после выполнения программы на экране будет напечатана сумма элементов массива, больших трёх. Эта сумма равна 5 + 6 + 7 + 12 = 30.
 
9. Изначально u = 30. Затем для каждого i от 1 до 6 из u вычитается значение i, после цикла u равно 30 - 1 - 2 - 3 - 4 - 5 - 6 = 9. Это значение будет выведено на экран.
 
7. Путь Димы: С:\Музыка\Хиты – С:\Музыка\Хиты\Ретро – С:\Музыка\Хиты – С:\Музыка\Хиты\Лучшие 
В последней папке он запустил Белые_розы.mp3. Полное имя файла состоит из пути к папке и имени файла: 
С:\Музыка\Хиты\Лучшие\Белые_розы.mp3