Найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале [-28, 27] - Pascal ABC

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

Найти произведение элементов, кратных 3 в массиве, заданном датчиком случайных чисел на интервале [-28, 27]. Размер произвольный.

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

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

var
  p: real;
  n, i: integer;
  a: array [1..100] of integer;
 
begin
  randomize;
  n := 10;
  p := 1;
  for i := 1 to n do
  begin
    a[i] := -28 + Random(56);
    write(a[i]:4);
    if (a[i] mod 3 = 0) and (a[i] <> 0) then 
      p := p * a[i];
  end;
  writeln;
  writeln(p);
end.

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

Объявляются переменные: — p типа real; — n, i типа integer; — a типа array [1..100] of integer;
В блоке var происходит инициализация переменных: — n присваивается значение 10; — p присваивается значение 1;
В цикле for i от 1 до n выполняется следующее: — a[i] присваивается случайное число на интервале [-28, 27] с помощью функции Random(56); — выводится значение a[i] на экран с помощью команды write(a[i]:4); — проверяется условие (a[i] mod 3 = 0) and (a[i] <> 0), если оно истинно, то произведение p увеличивается на a[i];
После цикла for выводится на экран значение p.