Найти количество чисел которые делятся на 3, но не делятся на 5 в массиве — Pascal(Паскаль)

uses crt;
var mas: array [1..100] of integer;
i,n,k:byte;
begin
clrscr;
writeln('vvedite kol-vo el. mas: ');
readln(n);
writeln('vvedite el. mas:');
for i:=1 to n do
begin
read(mas[i]);
if ((mas[i] mod 3)=0) and ((mas[i] mod 5)<>0) then
inc(k);
end;
writeln(k);
end.