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