Дан одномерный массив размера n (n считывается с клавиатуры). Найти произведение всех элементов этого массива, кратных трем. Если таких элементов нет, вывести на экран 0.

var a: array [1...n] of integer;

j, k, max: integer:

begin

 for j:=1 to n do

readln(a[j]);

sum:=0

For j:=1 to n do

if a[j]mod=0 then sum:=sum*a[j]

Writeln(sum);

end.