Perhatikan potongan program berikut!

var N,hasil: integer;
procedure solve(X:integer);
begin
if (X>1) then
begin
hasil:=hasil+1;
solve(X div 2 + X mod 2);
end;
end;
begin
readln(N);
hasil:=0;
solve(N);
writeln(hasil);
end.

Bila diberi masukan bilangan 77, maka program akan memberikan keluaran