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

const N=30; varA:array [1..N] of integer; i,k,g:integer; begin g:=1; Writeln('Введите массив'); For i:=1 to n do begin A[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.