program Sume;
var T: array[1..20, 1..20] of integer;
n, i, j, suma1, suma2: integer;
begin
write('n='); read(n);
writeln('introdu ',n*n,' elemente ale tabloului bidimensional:');
for i:=1 to n do
for j:=1 to n do
begin
read(T[i,j]);
if i=j then suma1:=suma1+sqr(T[i,j]);
if i<>j then suma2:=suma2+T[i,j];
end;
writeln(' suma patratelor elementelor de pe diagonala principala= ',suma1);
writeln('suma elementelor ce nu se afla pe diagonala principala= ',suma2);
end.
