$-+=$_ for<>.<>,@c=sort{$a-$b}<>;($-/=@c)-=$--$c[@c/2];$\+=abs$_-$-for@c;print