Дан массив из N элементов. определить количество элементов, кратных 3, но не кратных 5

var    a: array[1..100] of integer;    k, i, n: integer;begin    read(n);    for i := 1 to N do    begin        A[i] := random(40) - 20;                if (a[i] mod 3 = 0) and (a[i] mod 5 > 0) then             k := k + 1;        Write(a[i], );    end;    WriteLn();    WriteLn(k);end.