Program  dmas_14;
uses crt;
const m=4;
Var a:array[1..m,1..m]  of integer;
min,i,j,s:integer;
Begin
randomize;
For i:=1 to m do
begin
For j:=1 to m do
begin
a[i,j]:=random(10); 
write(a[I,j]:4);
end;
writeln;
end;
s:=0;
For i:=1 to m do
For j:=1 to m do
If  i=j  then  
s:=s+a[i,j];
Writeln('Сумма элементов главной диагонали = ',s);
Readln;
End.