program Task2_MatrixRowSum;

const
  N = 10;

var
  M: array[1..N, 1..N] of integer;
  i, j: integer;
  sum: integer;

begin
  // Ввод матрицы
  writeln('Введите элементы матрицы ', N, 'x', N, ':');
  for i := 1 to N do
    for j := 1 to N do
    begin
      write('M[', i, ',', j, '] = ');
      readln(M[i, j]);
    end;
  
  // Вывод введённой матрицы
  writeln;
  writeln('Введённая матрица:');
  for i := 1 to N do
  begin
    for j := 1 to N do
      write(M[i, j]:5);
    writeln;
  end;
  
  // Подсчёт суммы элементов в каждой строке
  writeln;
  writeln('Суммы элементов по строкам:');
  for i := 1 to N do
  begin
    sum := 0;
    for j := 1 to N do
      sum := sum + M[i, j];
    writeln('Строка ', i, ': сумма = ', sum);
  end;
end.