var     x , y   : longint ;
begin
        while (not seekeof) do begin
         readln (x) ;
         if (x = 0) then break ;
         y := x and (-x) ;
         writeln (x + y + ((x xor (x + y)) div y) shr 2) ;
        end ;
end .

这是网上那个牛逼的代码的 Pascal 版 ~
注意 xor 的优先级跟 + - 等同，比 div 要低。。。