n=3;
roznica[a_,b_]:=Length[Select[Range[Length[a]],Not[a[[#]]==b[[#]]]&]]

wierzcholki=Permutations[Range[n]]
krawedzie=Select[Subsets[Permutations[Range[n]],{2}],roznica[#[[1]],#[[2]]]==2&]

momentpoly[x_,y_]:=(gg[u_]:=If[u==1,x+y,If[u==2,y,0]];
f[a_]:=Table[gg[u],{u,a}];
odcinek[a_]:=Graphics3D[{Thick,Line[{f[a[[1]]],f[a[[2]]]}]}];
podpis[pt_]:=Graphics3D[Text[Style[pt,Medium,Black],1.1f[ pt]]];
Show[Union[Table[odcinek[a],{a,krawedzie}],Table[podpis[pt],{pt,wierzcholki}]]])
Do[Print["Polaryzacja",{k,6-k}];Print[momentpoly[k,6-k]];Print[" "],{k,0,6}]