Network[{Node[1], Node[2], Node[3], Node[4], Node[5], Node[6], Node[7], 
   Node[8], Node[9], Node[10], Node[11], Node[12], Node[13], 
   {Arc[{1, 6}], Arc[{1, 7}]}, {Arc[{2, 8}], Arc[{2, 9}]}, 
   {Arc[{3, 10}], Arc[{3, 1}]}, {Arc[{4, 11}], Arc[{4, 12}]}, 
   {Arc[{5, 13}], Arc[{5, 1}]}, {Arc[{6, 1}], Arc[{6, 1}]}, 
   {Arc[{7, 3}], Arc[{7, 1}]}, {Arc[{8, 2}], Arc[{8, 2}]}, 
   {Arc[{9, 5}], Arc[{9, 2}]}, {Arc[{10, 4}], Arc[{10, 4}]}, 
   {Arc[{11, 4}], Arc[{11, 4}]}, {Arc[{12, 2}], Arc[{12, 4}]}, 
   {Arc[{13, 4}], Arc[{13, 4}]}}]