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