Получив на вход число X этот метод печатает два числа a

Получив на вход число X этот метод печатает два числа a и b Укажите наименьшее из таких чисел X при вводе которых метод печатает поначалу 3 а позже 18
var x,a,b: integer
begin
readln(x);
a:=0, b:=0
while xgt;0 do
begin
a:=a+1
if x mod 2=0 then
b:=b+x mod 10
x:=x div 10
end;
writeln(a);
writeln (b);
end.