program modify
        dimension k(1000),m(1000)
        do i=1,1000
        k(i)=i
        enddo
        write(*,*)'please give a number(n大于2):'
        read(*,*)n
        j=1
        do i=n+1,1000
        if(mod(i,n).eq.0.and.mod(i,2).ne.0)then
        m(j)=k(i)
        write(*,*)j,m(j)
        j=j+1
        endif
        enddo
        stop
        end