<>;@_=sort{$a-$b}split$",<>;$t=$_[@_/2];$x+=abs$_-$t for@_;print$x