Даны n натуральных чисел a1...a2...an.Определить и вывести количество членов последовательности кратных 3 и не кратных 5

{даны n натуральных чисел a1...a2...an.Определить и вывести количество членов последовательностикратных 3 и не кратных 5}
program zadacha;
vara: array[1..255] of byte;i,n,k: integer;
beginwrite(введите n от 1 до 100 - количество чисел );read(n);for i:=1 to n do begina[i]:=random(255);write(a[i]:6);end;
k:=0;writeln();for i:=1 to n do begin    if (a[i] mod 3 = 0) and (a[i] mod 5 lt;gt; 0) then   begin k:=k+1;   write(a[i]:6);   end;end;writeln();writeln(в массиве , k, элементов, кратных 3 и не кратных 5);end.