#!/usr/bin/perl

while(<>) {
  ($first,@rest) = split;
  $sum+=$first;
  $i++;
}

print $sum/$i . "\n";
