Записать в массив 30 случайных целых чисел от 1 до 12 и вычислить произведения тех элементов, значение которых кратны 3. паскаль

constN=30;varA:array [1..N] of integer;i,k,g:integer;beging:=1;Writeln('Введите массив');For i:=1 to n dobeginA[i]:=Random(13);writeln('A[',i,']=',A[i]);if (A[i] mod 3=0) and (A[i]<>0) then begin k:=1; g:=g*A[i]; end;end;if k=1 then Writeln(g) else writeln('Нету чисел, кратных трем.')end.