<>;$/=$";$a+=$_ for@a=<>;print 30*grep$_*10<=$a,@a