Найти произведение всех элементов введенной последовательности, кратных 3 - Pascal ABC

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

ввести с клавиатуры n любых чисел.Найти произведение тех что кратные 3

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

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

program pr;
var
  n, m, p, i: integer;
begin
  p := 1;
  writeln('Введите количество чисел для ввода');
  readln(n);
  for i := 1 to n do
  begin
    read(m);
    if m mod 3=0 then
      p := p * m;
  end;
  writeln('Произведение чисел, кратных 3: ', p);
end.

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

Программа начинается с объявления переменных n, m, p и i типа integer.
Переменная p инициализируется значением 1.
Выводится сообщение Введите количество чисел для ввода.
Считывается значение переменной n.
Запускается цикл for, который выполняется n раз.
На каждой итерации цикла считывается значение переменной m.
Проверяется, делится ли число m на 3 без остатка. Если да, то a) умножается на текущее значение переменной p. b) значение переменной p сбрасывается на 1.
После завершения цикла выводится сообщение с произведением всех чисел, кратных 3.
Программа завершается.