Вычислить значение выражения, используя процедуру - Pascal

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

Помогите пожалуйста. Вычислить, используя подпрограмму-процедуру Z=(s1+s2+s3)/(k1*k2*k3) где s1 и k1 – сумма и количество четных элементов массива N [1..12]; s2 и k2 – сумма и количество четных элементов массива М [1..10] s3 и k3 – сумма и количество четных элементов массива А [1..8]

Решение задачи: «Вычислить значение выражения, используя процедуру»

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

type
  vector = array [1..100] of integer;
 
var
  A, B, C: vector;
  i, n, k1, k2, k3, s1, s2, s3: integer;
  z: real;
 
procedure CountVector(x: vector; k: integer; var sum, col: integer);
var
  i: integer;
begin
  sum := 0;
  col := 0;
  for i := 1 to k do
  begin
    x[i] := random(31) - 15;
    write(x[i]:4);
    if x[i] mod 2 = 0 then
    begin
      sum := sum + x[i];
      inc(col);
    end;
  end;
end;
 
begin
  randomize;
  writeln('Массив А.');
  CountVector(a, 12, s1, k1);
  writeln;
  writeln('Массив А. Сумма чётных: ', s1);
  writeln('Массив А. Количество чётных: ', k1);
  writeln('Массив B.');
  CountVector(b, 10, s2, k2);
  writeln;
  writeln('Массив B. Сумма чётных: ', s2);
  writeln('Массив B. Количество чётных: ', k2);
  writeln('Массив C.');
  CountVector(c, 8, s3, k3);
  writeln;
  writeln('Массив C. Сумма чётных: ', s3);
  writeln('Массив C. Количество чётных: ', k3);
  Z := (s1 + s2 + s3) / (k1 * k2 * k3);
  writeln('Z: ', z);
end.

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

Объявление переменных и типа данных — Вектор (массив) объявлен как array [1..100] of integer (100 элементов целых чисел) — Переменные A, B, C, i, n, k1, k2, k3, s1, s2, s3, z объявлены как integer (целые числа)
Объявление процедуры CountVector — Принимает вектор x, число k и переменные sum и col — Используется для подсчета суммы и количества чётных элементов в заданном диапазоне — Код внутри процедуры выполняет следующие действия: — Инициализирует sum и col нулевыми значениями — Проходит по всем элементам в диапазоне от 1 до k — Задаёт случайное значение для каждого элемента (от -15 до 15) — Если элемент чётный, то прибавляет его к sum и увеличивает col на 1 — Возвращает sum и col
Основная часть программы — Инициализирует переменную randomize для использования генератора случайных чисел — Выводит заголовок Массив А. — Вызывает процедуру CountVector для массива A с аргументами 12, s1, k1 — Выводит сообщение Массив А. Сумма чётных: и значение s1, Количество чётных: и значение k1 — Выводит заголовок Массив B. — Вызывает процедуру CountVector для массива B с аргументами 10, s2, k2 — Выводит сообщение Массив B. Сумма чётных: и значение s2, Количество чётных: и значение k2 — Выводит заголовок Массив C. — Вызывает процедуру CountVector для массива C с аргументами 8, s3, k3 — Выводит сообщение Массив C. Сумма чётных: и значение s3, Количество чётных: и значение k3 — Вычисляет значение Z как сумму s1, s2, s3, делённую на произведение k1, k2, k3 — Выводит сообщение Z: и значение Z
Значение Z вычисляется как сумма s1, s2, s3, делённая на произведение k1, k2, k3 — Значение Z представляет собой среднюю сумму чётных элементов в массивах A, B, C — Значение Z может быть использовано для дальнейшего анализа или принятия решений