program t implicit none integer::N,K read*,N,K K=K+3 select case(mod(K-N,3)) case(0) print"(A)","Drew" case(1) print"(A)","Won" case(2) print"(A)","Lost" end select end program t