Чтобы получить 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