GHISO PASCAL

var n,d:longint;
begin
    assign(input,'ghiso.inp');reset(input);
    assign(output,'ghiso.out');rewrite(output);
    readln(n);
    d:=0;
    while n > 0 do
    begin    
        if n mod 2 = 0 then 
            n:=n div 2 
        else 
            dec(n);
        inc(d);
    end;
    write(d);
end.