Таблица менделеева, таблица умножения, расписание уроков, таблица дежурства, таблица питания(кто кушает +, нет -)
Я так поняла: это 2 числа в двоичной системе счисления,которых необходимо перемножить.
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
Begin
var n:= readlnInteger('n =');
var a:= ReadlnString.ToIntegers;
SetLength(a, n);
var k:= a.where(t -> (t>100)and(t mod 7 = 0)).Count;
Writeln(k);
end.