Вычислить сумму элементов равных 0, стоящих в столбцах с нечётными номерами - Turbo Pascal

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

Задача: Дан массив 4х4 из целых чисел. Вычислить сумму элементов равных 0, стоящих в столбцах с нечётными номерами. Написать две программы-решения с подпрограммами и без. Помогите пожалуйста

Решение задачи: «Вычислить сумму элементов равных 0, стоящих в столбцах с нечётными номерами»

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

const
  n = 4;
 
var
  x: array [1..n, 1..n] of integer;
  i, j: byte;
  a, s: integer;
 
begin
  Randomize;
  Writeln('Матрица:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      x[i, j] := Random(11) - 5;
      Write(x[i, j]:4);
    end;
    Writeln
  end;
  Write('Введите A: ');
  Readln(a);
  for i := 1 to n do
    for j := 1 to n do
      if (Odd(j)) and (x[i, j] = a) then
        s := s + x[i, j];
  Writeln('Сумма = ', s);
  Readln
end.

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

В данном коде используется язык программирования Turbo Pascal. Он предназначен для решения задач, связанных с обработкой данных. Переменные в данном коде объявлены следующим образом:

n - это константа, которая определяет количество строк и столбцов в матрице. В данном случае она равна 4.
x - это массив, который представляет собой квадратную матрицу размером n на n. Каждый элемент массива имеет тип integer и представляет собой число от -5 до 5.
i и j - это байтовые переменные, которые используются для индексации элементов массива.
a - это переменная, в которую будет записан результат вычисления суммы элементов матрицы, равных заданному значению a.
s - это переменная, в которую будет записан результат вычисления суммы элементов матрицы, равных заданному значению a. Код начинается с инициализации генератора случайных чисел и вывода матрицы. Затем пользователю предлагается ввести значение a, которое будет использоваться для вычисления суммы. Далее происходит итерация по всем элементам матрицы и суммирование элементов, равных заданному значению a. Наконец, выводится результат.