program matr1;
var
i,j,n,m: Integer;
sum,sr: 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]);
    sum:=sum+A[i,j];
    end;
    a[i,i]:=sum;
    sum:=0;

  end;

for i := 1 to n do
  begin
  writeln;
    for j := 1 to m do
      write(a[i, j]:3);
end;
end.