Продолжить последовательность двузначных чисел: 21, 57, 17, 31, 65, 12

66 77 89 64 88 11 99 0

{даны 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 <> 0) then   begin k:=k+1;   write(a[i]:6);   end;end;writeln();writeln('в массиве ', k, ' элементов, кратных 3 и не кратных 5');end.

Это знаки для обозначения логических операций:
a) отрицание
(инверсия, логическое НЕ) обозначается ¬ (например, ¬А);

b) конъюкция
логическое умножение, логическое И) обозначается /\
(например, А /\ В) либо & (например, А & В);

c) дизъюнкция
(логическое сложение, логическое ИЛИ) обозначается \/
(например, А \/ В);

вдруг пригодится, есть еще такие знаки:

d) следование
(импликация) обозначается → (например, А → В);

e) тождество
обозначается ≡ (например, A ≡ B). Выражение A ≡ B истинно тогда и только тогда, когда значения A и B совпадают (либо они оба истинны, либо они оба ложны);

f) символ 1 используется для обозначения истины (истинного высказывания); символ 0 – для обозначения лжи (ложного высказывания).