Дан массив из 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.