В двумерном массиве целых чисел определить множество четных чисел кратных 3 - PascalABC.NET

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

Тип данных множества set.. В двухмерном массиве 6 строк и 6 столбцов из целых чисел определить множества четных чисел кратным 3

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

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

begin
  var s: set of integer;
  var a := MatrRandom(6, 6, -100, 100);
  a.Println;
  for var i := 0 to a.GetLength(0) - 1 do
    for var j := 0 to a.GetLength(1) - 1 do
      if (a[i,j] mod 2 = 0) and (a[i,j] mod 3 = 0) and not (a[i, j] in s) then
        include(s, a[i, j]);
  writelnformat('Четные числа, кратные 3-м: {0}', s);
end.

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

В данном коде:

Создается пустое множество s типа set of integer, которое будет хранить числа, удовлетворяющие условию.
Создается двумерный массив a размером 6x6 с помощью функции MatrRandom(), заполненный случайными числами от -100 до 100.
Выводится на экран содержимое массива a с помощью функции Println().
В цикле перебираются все элементы массива a.
Для каждого элемента a[i,j] проверяется, является ли он четным и кратным 3 с помощью операций mod 2 = 0 и mod 3 = 0.
Если элемент удовлетворяет условиям и еще не включен в множество s, то он добавляется в s с помощью функции include(s, a[i, j]).
В конце выводится на экран строка с помощью функции writelnformat(), которая содержит список четных чисел, кратных 3, в формате Четные числа, кратные 3-м: {0}, где {0} заменяется на значение переменной s.