main = do
  li <- getLine
  let x = read li
  let ans = compute (abs x)
  print ans

{-
2に行くのに-3,+5とするよりは+2の方が早いように、
逆向きを交えて狙う必要は実はないのだと思われる。
つまり時刻nには1+...+n = n(n+1)/2まで進むことができて、
それより手前はいずれかを落とすことで必ず到達できる。（要証明）
差がn以下ならその数ズバリを落とせばいい。
なので、xをカバーする最小のnを計算で求める。
n(n+1)/2 >= x
n^2 + n - 2x >= 0
n = -1 +- sqrt(1 + 8x)/2
-}

compute :: Int -> Int
compute x = ceiling ((sqrt (fromIntegral x * 8 + 1) - 1) / 2)