pascal AC

var
n,ans:longint;
procedure doit(t:longint);
var
i:longint;
begin
if t>0 then
for i:=1 to t do
inc(ans);
for i:=1 to t do
doit(i div 2);

end;
begin
readln(n);
doit(n div 2);
writeln(ans+1);
end.