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