use strict; use warnings; my $n = <>; my $res = 0; for(my $i = 0; $i < $n; $i++) { my ($g, $d) =split / /, <>; my $total = $g * 6 - $d*(6 * 30000); if($total >= 30000 * 100) { $res = $i + 1; } } if($res != 0) { print "YES\n"; for(my $i = 0; $i < 6; $i++) { print "$res\n"; } } else { print "NO\n"; } exit;