Найти сумму четных элементов матрицы. Закрасить указанные элементы - Pascal ABC

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

Решите пожалуйста. Двумерные массивы. Найти сумму четных элементов матрицы. Закрасить указанные элементы.

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

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

uses crt;
const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  n,m,i,j,sum: byte;
begin
  clrscr;
  sum:=0;
  write('Г‚ГўГҐГ¤ГЁГІГҐ Г°Г*Г§Г¬ГҐГ°Г» Г¬Г*Г±Г±ГЁГўГ* n, m: ');
  readln(n,m);
  writeln('Г€Г±ГµГ®Г¤Г*Г»Г© Г¬Г*Г±Г±ГЁГў: ');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(99)+1;
      if a[i,j] mod 2=0 then
      begin
        textcolor(green);
        sum:=sum+a[i,j];
      end
      else textcolor(0);
      write(a[i,j]:6);
    end;
    writeln;
  end;
  writeln;
  writeln('Г‘ГіГ¬Г¬Г* Г·ГҐГІГ*Г»Гµ ГЅГ«ГҐГ¬ГҐГ*ГІГ®Гў = ',sum);
end.

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

Объявлены переменные: — a: массив размером nmax x nmax для хранения чисел; — n, m: числа, определяющие размер матрицы; — i, j: индексы для обхода матрицы; — sum: переменная для хранения суммы четных чисел.
Задаются размеры матрицы с помощью функции readln().
Выводится шаблон для ввода матрицы.
Для каждого элемента матрицы проверяется его четность с помощью оператора mod. Если число четное, то его значение добавляется к сумме и меняется цвет текста на зеленый.
В цикле выводятся все элементы матрицы с помощью функции write().
После вывода всех элементов матрицы выводится сумма четных чисел с помощью функции writeln().
Код завершается выводом строки с текстом и значением суммы.