giúp mik bài này với pls

đây bạn nhé

uses crt;
var n,d,k,S:longint;
begin
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
inc(s);
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(d);
readln;
end.