aa={}; n=5; m=4;
		For[i=1,i<=8,i++,
		  aa=AppendTo[aa,chessFigureShow[7,White,{n,i}]];
		  aa=AppendTo[aa,chessFigureShow[7,White,{i,m}]];
		  (* Диагональьные клетки,  атакуемые ферзем
		  {n,m}, имеют индексы {i,j}, удовлетворяющие
		   условию  i+j==n+m или i-j==n-m  *)
		  For[j=1,j<=8, j++,
		  If[  i+j==n+m || i-j==n-m,  
		   aa=AppendTo[aa,chessFigureShow[7,White,{i,j}]]]]];
		  (*Вернем на место затертого нами ферзя*)
		   aa=AppendTo[aa,chessFigureShow[4,White,{n,m}]];