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