Какие есть способы избежать Time limit?

What are the ways to avoid Time limit?

This is my Prog:

var
  i,n,k,l,g:integer;
begin
  read(n,k);
  l:=1;
  i:=1;
  while i<k do
  begin
    l:=l+i;
    inc(g);
    if l<n then
    i:=i*2
    else break;
  end;
  while l<n do
  begin
    l:=l+k;
    inc(g);
  end;
  writeln(g);
end.