subroutine submit(N,R,T) integer*8::i,j,res integer*8,intent(in)::N,R,T res = 1 j = N do i=1, R res = (res*j)/i j = j - 1 if(res.gt.T) then exit end if end do if(res.gt.T) then print '(a)', "ZETUBOU" else print '(a)', "AC" end if end subroutine submit program main interface subroutine submit(N,R,T) integer*8,intent(in)::N,R,T end subroutine submit end interface type problem integer*8::D,X,T end type problem integer*8::Q,i,j,k,tmp integer*8::qd,qx,qt,qr type(problem)::P(10**4) integer*8::D,T read *, Q read *, P(1:Q) do i=1,Q qd = P(i)%D qx = P(i)%X qt = P(i)%T qr = MIN(qx, qd-1) call submit(qd+qx-1,qr, qt) end do end program main