program PascalGuru;
uses crt;
type matr=array[1..50,1..50] of integer;

var A,B:matr;
i,j,n1,n2:integer;
SA,SB:integer;
{------------------------------------------------------}
procedure vvod(var X:matr;n:integer);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
begin
write ('[',i,',',j,']= ');
readln (X[i,j]);
end;
end;
{------------------------------------------------------}
procedure vyvod(X:matr;n:integer);
var i,j:integer;
begin
for i:=1 to n do begin writeln;
for j:=1 to n do write (X[i,j]:8); end;
end;
{------------------------------------------------------}
function pr(X:matr;n:integer):integer;
var i,j,rez:integer;
begin
rez:=1;
for j:=1 to n do
if not odd(j) then
for i:=1 to n do
if X[i,j]>0 then rez:=rez*X[i,j];
pr:=rez;
end;
{------------------------------------------------------}

begin
write('Razmer matritsy "A"= '); readln(n1);
vvod(A,n1);

write('Razmer matritsy "B"= '); readln(n2);
vvod(B,n2);

SA:=pr(A,n1);
SB:=pr(B,n2);

clrscr;
if SA>SB then
begin
write('Matritsa A:');
vyvod(A,n1)
end
else
begin
write('Matritsa B:');
vyvod(B,n2)
end;

readln;
end.