$B=<>/<>;$B+=$_/@@for@@=sort{$a-$b}<>;$\+=abs$_-(($%=$@[@@/2])<$B?$%:$B|0)for@@;print