$_=<STDIN>; chomp; @sayilar=split(/[\s,]/, $_); $a=0; foreach(@sayilar) { $a=$a+$_; } print $a/(scalar(@sayilar)),"\n"; exit;