program matr1;
var
i,j,n,m: Integer;
sum: Real;
A:  array[1..10,1..10] of real;
begin
write('Введите кол-во строк  ');
readln(n);
write('Введите кол-во столбцов  ');
readln(m);
sum:=0;
For i:=1 to n do
  begin
   for j:=1 to m do
    begin
   write('A[',i,', ', j,'] = ');
   readln(A[i,j]);
    end;
    for j:=i+1 to m do
    sum:=sum+a[i,j];
  end;
  writeln(sum);
end.