Составьте массив из 30 элементов, вывести произведение нечётных чисел, кратных трём

вместо 3 30 поставь

в 1 и 4 строке

сам исправил

Держи. var A : array[1..30] of integer; x,i : integer;beginx:=1;for i:=1 to 30 dobegin;read(A[i]);if ((A[i] mod 2)>0) and ((A[i] mod 3) = 0) then x:=x*A[i];end;if x=1 then x:=0;Writeln(x);end.