program Dzenadilos;

var
m: byte;
A: array of array of integer;
sum: integer;

Begin
write('Ââåäèòå ðàçìåðíîñòü ìàòðèöû: ');
readln(m);
setLength(A, m);
writeln('Ýëåìåíòû ìàòðèöû: ');
sum:= 0;

for var i:=0 to m-1 do
  begin
  setLength(A[i], m);
  for var j:=0 to m-1 do
    begin
    A[i][j]:= random(71)-30;
    write(A[i][j]:4);
    if (i<j) then sum:= sum + A[i][j];
    end;
  writeln();
  end;
writeln('Ñóììà ýëåìåíòîâ âûøå ãëàâíîé äèàãîíàëè: ', sum);
end.