Pakt s đavolom