Here's my code:

var n,k,s,t:longint;
begin
   readln(n,k);
   s:=1;
   for t:=1 to 31 do
   begin
      s:=s*2;
      if s>n then break;
      if s>k then
      begin
         t:=t+(n-s+k-1) div k;
         break;
      end;
   end;
   writeln(t);
end.

>