use strict;
use warnings;
my $i = 0;
my $input = "";
while ($i < 3) {
        chomp(my $num = <>);
        $input .= " $num";
        $i++;
}
print "Total input is $input\n";
my @nums = split(' ', $input);

my $sum;
foreach (@nums) {
        $sum += $_;
}
print $sum / @nums . "\n";
exit;