Дано натуральное число. верно ли, что количество его цифр есть четное число, а само число не превышает b ? написать программу на паскале используя циклы, но не используя массивы, строковый тип и boolean

Var i,n,k,b: integer;
begin
  write(' b = ');  readln(b);
  write(' n = ');  readln(n);
  i:=n;  k:=0;
  while i>0 do
   begin
    i:=i div 10;    k:=k+1;
  end;
  if n<=b then writeln('число n не превышает ',b)
  else writeln('число n больше ',b);
  if (k mod 2) = 0 then writeln('число цифр = ',k,' - четное')
  else writeln('число цифр ',k,' - нечетное');
end.