g=;

flowgraph=EdgeAdd[g,Union[Flatten[EdgeList[g]/.{a_\[DirectedEdge]b_:>{"s"\[DirectedEdge]a,b\[DirectedEdge]"t"}}]]];

VertexDelete[FindMaximumFlow[flowgraph,"s","t","FlowGraph"],{"s","t"}]