implicit none integer(8) n,k,s read(*,*) n,k s=n-k select case (abs(s)) case(1) if (n>k) then write(*,*)"Lost" else write(*,*)"Won" end if case(2) if (n>k) then write(*,*)"Won" else write(*,*)"Lost" end if case(0) write(*,*)"Drew" end select end