Вычислить среднее арифметическое элементов меньших 5 и количество элементов равных 0 - Turbo Pascal

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

1) В двумерном массиве А(4,4) вычислить среднее арифметическое элементов меньших 5 и количество элементов равных 0

Решение задачи: «Вычислить среднее арифметическое элементов меньших 5 и количество элементов равных 0»

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

var
  a: array[1..4, 1..4] of integer;
  i, j, k, q, s: integer;
 
begin
  writeln('Исходный массив:');
  for i := 1 to 4 do
  begin
    for j := 1 to 4 do
    begin
      a[i, j] := random(10);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  
  k := 0; // количество элементов, меньших 5
  q := 0; // количество элементов, равных 0
  s := 0; // сумма элементов, меньших 5
  for i := 1 to 4 do
    for j := 1 to 4 do
      if a[i, j] < 5 then
      begin
        inc(k);
        s := s + a[i, j];
      end else
      if a[i, j] = 0 then inc(q);
  writeln('равных 0: ', q);
  writeln('среднее, меньших 5: ', s / k);
  readln;
end.

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

Создается переменная a типа array[1..4, 1..4] of integer, которая представляет собой массив размером 4x4.
Создаются четыре переменные i, j, k, q, s типа integer.
Выводится исходный массив с помощью цикла for.
Создается три переменные k, q, s типа integer. Переменная k будет использоваться для подсчета количества элементов, меньших 5, переменная q - для подсчета количества элементов, равных 0, а переменная s - для подсчета суммы элементов, меньших 5.
Используется два вложенных цикла for для обхода всех элементов массива.
Внутри первого цикла проверяется, является ли текущий элемент меньше 5. Если это так, то увеличивается счетчик k и сумма s увеличивается на текущий элемент.
Во втором цикле проверяется, равен ли текущий элемент 0. Если это так, то увеличивается счетчик q.
По окончании второго цикла выводится количество элементов, равных 0, с помощью команды writeln.
По окончании первого цикла выводится среднее арифметическое элементов, меньших 5, с помощью команды writeln.
Выводится команда readln, чтобы прочитать ввод пользователя.