integer,allocatable::GD(:,:) integer,parameter::experiment=30000,time=6 integer::N,maxindx,i,maxexp=-1,temp logical::pos=.false. read *,N allocate(GD(2,N)) read *,GD do i=1, N temp = GD(1,i)-experiment*GD(2,i) if (temp.gt.maxexp) then maxexp = temp maxindx = i if(maxexp.ge.experiment*100/time) then pos = .true. exit endif end if end do if(pos) then print '(a)',"YES" do i=1,6 print '(i0)',maxindx end do else print '(a)',"NO" end if end program