<>;$/=$";print+($a[(@a=sort{$a-$b}<>)/2]+$a[$#a/2])/2