Посчитать сумму элементов в каждой строке матрицы - Turbo Pascal

Формулировка задачи:

Ввести квадратную матрицу размерностью 3Х3 и посчитать сумму элементов в каждой строке. Вывод в виде: 1 2 3 = 6 4 5 6 = 15 7 8 9 = 24

Решение задачи: «Посчитать сумму элементов в каждой строке матрицы»

Листинг программы

var a: array [1..3, 1..3] of integer;
    i, j, s: integer;
begin
  writeln('Введите элементы матрицы:');
  for i := 1 to 3 do
    for j := 1 to 3 do
      begin
        write('a[', i, ', ', j, '] = ');
        readln(a[i, j])
      end;
  writeln('Суммы элементов по строкам:');
  for i := 1 to 3 do
    begin
      s := 0;
      for j := 1 to 3 do
        begin
          write(a[i, j]:5);
          s := s + a[i, j]
        end;
      writeln(' = ':5, s:5)
    end;
  readln
end.

Объяснение кода листинга программы

Создается переменная a, которая представляет собой матрицу размером 3x3.
Задаются три переменные i, j и s, которые будут использоваться для итерации по матрице и подсчета суммы элементов.
Выводится сообщение «Введите элементы матрицы:», чтобы пользователь мог ввести элементы матрицы.
Используется цикл for для итерации по строкам матрицы.
Внутри первого цикла for выводится сообщение «a[», за которым следует номер строки i, ', ', номер столбца j и «] = », чтобы пользователь мог ввести элемент матрицы.
Введенный пользователем элемент сохраняется в соответствующую ячейку матрицы a[i, j].
После завершения первого цикла for выводится сумма элементов текущей строки матрицы.
Повторяется второй цикл for, который начинается с номера строки i и продолжается до конца матрицы.
Внутри второго цикла for инициализируется переменная s со значением 0, которая будет использоваться для подсчета суммы элементов текущей строки.
Используется цикл for для итерации по столбцам матрицы.
Внутри второго цикла for выводится значение элемента матрицы a[i, j] с помощью функции write().
Значение элемента матрицы a[i, j] добавляется к переменной s.
После завершения второго цикла for выводится итоговая сумма элементов текущей строки матрицы.
Выводится сообщение «readln» для чтения следующего ввода пользователя.