Program  dmas_15;
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  j=m+1-i  then  
s:=s+a[i,j];
Writeln('Сумма элементов побочной диагонали = ',s);
Readln;
End.