#!/usr/bin/env perl
#
# Prints the median in a *sorted* list of numbers on stdin.
# &: Feb 3, 2002.
#
use POSIX qw(floor ceil);

my @f = <>;
my ($a,$b)=(floor(@f/2-.5), ceil(@f/2-.5));
my $med = ($f[$a] + $f[$b])/2;
print "$med\n";