Proverka[r_,n_]:=Module[{},
	If [Tr[r]==n, Print["E refleksivna"], Print["Ne e refleksivna"]];
	If [Tr[r]==0, Print["E antirefleksivna"], Print["Ne e antirefleksivna"]];
	If [Transpose[r]==r, Print["E simetricna"], Print["Ne e simetricna"]];
	If [Sign[r+Transpose[r]-IdentityMatrix[n]]==r+Transpose[r]-IdentityMatrix[n],
		Print["E antisimetricna"], Print["Ne e antisimetricna"]];
	If [Sign[r+r.r]==r, Print["E tranzitivna"], Print["Ne e tranzitivna"]];
]

A={1,2,3,4,5,6};
n=Length[A];
a=Table[If[i+j==5,1,0],{i,1,n},{j,1,n}];
MatrixForm[a]
Proverka[a,n]