заполнить массив из 10 элементов целыми числами дел. на 3 без остатка

Const n=10;Var A:array[1..n] of integer;    i:integer;Begin    For i:=1 to n do    Begin      A[i]:=random(31);      if A[i] mod 3 = 0 then write(A[i]:4);    End;end.