#!/usr/bin/perl

use strict;

my $n = 0;
my $tot = 0;
while (my $line = <STDIN>) {
    next unless ($line =~ /^\d/);
    $tot += $line;
    $n++;
}
exit(1) unless ($n);

print ("Total   : $n\n",
       "Average : ", $tot / $n, "\n");
