Code bài CHEO1, mảng 2 chiều

const
   fin='cheo1.inp';fon='cheo1.out';
   maxn = 1000;maxm = 1000;
var
   a:array[1..maxm,1..maxn] of longint;
   n:longint;

procedure nhap;
var i,j:longint;
begin
read(n);
for i:=1 to n do
   for j:=1 to n do read(a[i,j]);

end;

procedure xl;
var
   i,s:longint;
begin
s:=0;
for i:=1 to n do s:=s+a[i,n+1-i];
write(s);
end;

begin
assign(input,fin);reset(input);
assign(output,fon);rewrite(output);
nhap;
xl;
close(input);close(output);
end.