Чтобы получить A = 3 и B = 2, из начальных значений равных нулю необходимо чтобы тело цикла :
while x>0 do begin
    c:=x mod 2;
    if c = 0 then a:=a+1
    else b:=b+1;
    x:=x div 10;
  end;
Выполнилось 5 раз, значит число Х не меньше 10000.
Далее, чтобы в условии:
if c = 0 then a:=a+1
    else b:=b+1;
Выполнилось увеличение b на 1 необходимо чтобы число было нечетным. Минимальное нечетное число для таких вводных: 
10001
Ответ: 10001