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

Var       i, el, kol,  n: integer; begin     read(n);           kol : = 0;     for i : = 1 to n do begin                read(el);           if (el  mod  3  =  0)and(el  mod  5  < >   0) then inc(kol);       end;           write(kol); end.

3+3-3: 3=5

3-3+3+3=6

3: 3+3+3=7

3*3-3: 3=8

3*3*3: 3=9

3* 3+3: 3 = 10