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