Var k,n,i,j:integer;
a:array[1..100,1..100] of integer;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('A[',i,',',j,']=');
readln(a[i,j]);
end; k:=1;
for i:=1 to n do
for j:=1 to n do
if j mod 2=0 then k:=k*a[i,j];
writeln(k);
<span>end.</span>