program ma_tran;
uses crt;
var A:array[1..1000,1..1000] of integer;
n,i,j,t:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('A[',i,',',j,']= '); readln(A[i,j]);
end;
writeln('Ma tran: ');
for i:=1 to n do
begin
for j:=1 to n do write(A[i,j]:5);
writeln;
end;
writeln('Ma tran dao: ');
for i:=n downto 1 do
begin
for j:=n downto 1 do write(A[i,j]:5);
writeln;
end;
t:=0;
for i:=1 to n do
for j:=1 to n do
if (i mod 2=0) and (j mod 2=1) then t:=t+A[i,j];
write('Tong cac so o hang chan, cot le la: ',t);
readln;
end.
