[Ori]

תשע(בערך

 Const N = 10;
 Type Mar = Array&l;1..N,1..N&r; of Integer;
 function Muk(A:Mar; I,J:integer):integer;
 var sumrow,sumcol,k:integer;
 begin
 	if (A&l;I,J&r; = 0) then
 		Muk:=0
 	else
 	begin
 		sumrow:=0;
 		For K:=1 to N do
 			sumrow:=sumrow+A&l;I,K&r;;
 		sumcol:=0;
 		For K:=1 to N do
 			sumrow:=sumrow+A&l;K,J&r;;
 		if (sumrow = sumcol) then
 			Muk:=1
 		else
 			Muk:=0;
 	end;
 end;

 begin
 	count:=0;
 	For SH:=1 to N do
 	begin
 		For AM:=1 to N do
 		begin
 			if (Muk(A,SH,AM) = 1) then count:=count+1;
 		end;
 	end;
 	writeln(count);
 end.