Пусть дано 100 целых чисел, которые вводятся по одному. Найдите количество элементов больших числа 10 и кратных 3

program zz1;

var i, s, n:integer; / / задаем переменные целого типа

begin

for i:=1 to 100 do / / организуем цикл на сто повторений

begin

read (n); / / вводим очередное число с клавиатуры

if (n > 10) and (n mod 3 = 0) then s:=s + 1; / / проверяем условие, если введенное число больше десяти и оно же делится на три без остатка, то считаем его

end;

writeln (' количество найденных чисел среди введенных = ', s); / / выводим ответ

end.