while(print "in> " and chomp($a = <STDIN>) and $a >= 0){
	$c++;
	$s += $a;
	$m = $a if !$m;
	$M = $a if $M < $a;
	$m = $a if $m > $a;
}

print "max: $M\navg: ".$s/$c."\nmin: $m\n";