<<"GraphUtilities`";

FactorInteger[55]

ZeroGraph[p_, c_]:=
	Module[
		

{
		Counter1,
		Counter2,
		B,
		m,
		g,
		coord,
		labels,
		},


B={"0->0"};
Counter1=1;
Counter2=1;
m=0;

		While[
			Counter1<p,
			Counter2=1;
			While[
				Counter2<p,
				If[
				Mod[Counter1*Counter2,p]==0,
				B=Append[B,ToString[Counter1->Counter2]],
				m=m+1
				];
				Counter2=Counter2+1
				];
			Counter1=Counter1+1
			];


	g=ToExpression[B];
	g=Drop[g,1];
	coord=GraphCoordinates[g];
	labels = VertexList[g];
	Print["Diameter is:"];
	Print[Diameter[ToCombinatoricaGraph[g]]];
	Print["Girth is:"];
	Print[Girth[RemoveSelfLoops[ToCombinatoricaGraph[g]]]];
	Print["Chromatic Number is:"];
	If[c==1,Print[ChromaticNumber[ToCombinatoricaGraph[g]]]];
GraphPlot[g,VertexLabeling->True,SelfLoopStyle->.25,MultiedgeStyle->False]

]

ZeroGraph[25,1]