Записать в массив 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.