var a:array [,] of integer;
m,i,j,s1,s2:integer;
begin
write ('Введите размер матрицы: ');
readln (m);
a := new integer [m+1,m+1];
for i:= 1 to m do
begin
for j:=1 to m do
begin
a[i,j]:=Random(21)-10;
write(a[i,j]:4)
end;
writeln;
end;
for i:= 1 to m do
for j:=1 to m do
begin
if i=j then s1:=s1+a[i,j];
if i+j-1=m then s2:=s2+a[i,j]
end;
writeln('Сумма элементов расположенных на главной диагонали: ',s1);
writeln('Сумма элементов расположенных на побочной диагонали: ',s2)
end.