import qualified Control.Monad as M
import qualified Data.List as L

main = do
    _ <- readLn :: IO Int
    as <- map read . words <$> getLine
    putStrLn . show . solve $ L.sort as

solve :: [Int] -> Int
solve = sum . zipWith (\x y -> abs (x - y)) [1..]