integer,allocatable::GD(:,:) integer,parameter::experiment=30000,time=6 integer::N,i,j,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.ge.experiment*100/time) then if(pos) then print '(a)',"YES" do j=1,6 print '(i0)',maxindx end do return end if end if end do print '(a)',"NO" end program