FindMaximumFlow[Graph[{"s", 1, 2, 3, 4, 5, 6, "t"},
{{{1, 2}, {1, 3}, {1, 4}, {2, 5}, {3, 6}, {4, 7}, {5,
8}, {6, 8}, {7, 8}, {4, 6}, {3, 5}}, Null},
{EdgeStyle -> {Arrowheads[0.06]}, GraphLayout ->
{"MultipartiteLayout", "VertexPartition" -> {1, 3, 3,
1}}, VertexShapeFunction -> {"Name"}}], "s", "t",
"FlowTable"]