<>;@a=sort{$a-$b}glob<>;$%=$a[$#a/2];$s+=abs$_-$%for@a;print$s