program ct;
uses crt;
var n,d,k,S:integer;
begin clrscr;
   write('Nhap so n: '); readln(n);
   k:=n div 2;
   repeat
     if (k mod 2=1) and (n mod 2=0) then
       S:=S+1;
     if (S mod 2=1) or (S=0) then
       begin 
          S:=S+1;
          inc(d);
       end
     else 
       begin
          if S*2>n then S:=S+1 else S:=S*2;
          inc(d);
       end;
     if S+1=n then
       begin 
          S:=S+1;
          inc(d);
       end;
   until S=n;
   write('So lan len bang it nhat la: ',d);
readln;
end.

Học tốt!

uses crt;
var n,tong,dem:longint;
begin
clrscr;
   write('n=');readln(n);
   tong:=2; dem:=2;
   while tong*2<=n do begin tong:=tong*2; inc(dem); end;
   while tong<n do begin inc(tong); inc(dem); end;
   write('So lan len bang it nhat la: ');
   if n=1 then write(1) else write(dem);
readln
end.

//////////////////////////////////////////////////////////////////

Test: