var
n,count,i:integer;
begin
count:=0;
readln(n);
for i:=1 to n do
begin
readln(n);
if (n mod 4 = 0) and (n mod 7 <> 0) then
inc(count);
end;
writeln(count);
end.
На скриншоте
=============
Пассажирский ИЛИ Белорусский
То есть подходят записи, в которых указан пассажирский поезд, или в которых указан вокзал "Белорусский"
Подходят 6, 7, 9 и 10 строки таблицы, ответ 4.