Найти и вывести числа, делителем которых является тройка - Pascal

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

Целочисленный массив из 15 элементов заполняется случайными числами в диапазоне от -20 до 10. Найти и вывести числа, делителем которых является тройка.

Решение задачи: «Найти и вывести числа, делителем которых является тройка»

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

var
  i: integer;
  a: array[1..15] of integer;
begin
  writeln('Массив: ');
  for i := 1 to 15 do 
  begin
    a[i] := Random(31) - 20;
    write(a[i], ' ');
  end;
  writeln;
  for i := 1 to 15 do
    if a[i] mod 3 = 0 then write(a[i], ' ');
end.

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

В данном коде используется язык программирования Pascal. Он содержит следующие элементы:

Переменная i типа integer (целое число).
Переменная a типа array[1..15] of integer (массив из 15 целых чисел).
Выводится сообщение Массив: для предварительной настройки ввода-вывода.
С помощью цикла for перебираются элементы массива a от 1 до 15.
На каждой итерации цикла значение элемента a[i] генерируется случайным образом с помощью функции Random(31) и выводится на экран с пробелом.
Далее, проверяется условие if a[i] mod 3 = 0 - если остаток от деления a[i] на 3 равен нулю, то это число является делителем тройки и оно выводится на экран с пробелом.
Код заканчивается без использования вложенных списков.