Graph[Join[
      Table[Labeled[i, Subscript["y", ToString[i]]], {i, 10}], 
     {Labeled[Style[11, Black], Subscript["y", ToString[11]]]}],
     Table[Rule[i, 11], {i, 10}],
     DirectedEdges -> True, 
     EdgeStyle -> Red, 
     VertexCoordinates -> (Join[
        Table[{Cos[θ], Sin[θ]}, {θ, 0, 1.8 π, .2 π}], {{0., 0.}}])]