program PascalGuru;
uses crt;
var
A:array[1..100,1..100] of integer;
i,j,n:integer;
sum,sum1,sum2:integer;
begin
clrscr;
write ('Vvedite razmer massiva A(N,N): 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;
write ('Vvedennyi massiv A: ');
for i:=1 to n do begin writeln;
for j:=1 to n do write (A[i,j]:3,' '); end;
sum1:=0;
for i:=1 to n do
for j:=1 to n do
if (i-j=1) then
begin
sum1:=sum1+A[i,j];
end;
sum2:=0;
for i:=1 to n do
for j:=1 to n do
if (j-i=1) then
begin
sum2:=sum2+A[i,j];
end;
sum:=sum1+sum2;
writeln;
writeln('Summa = ',sum);
end.