Определить произведение элементов массива, стоящих на чётных местах.

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);
end.