<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var b:=ReadArrInteger(ReadInteger('N='));
b.Where(t->(t<=0) and (t mod 3=0)).Count.Println
end.
Крипты, Услуги, Выполняй задания чтобы получать денег, как Appbonus, NVuti
Парус, яблоня, действие, строфа, запах