Дана последовательность чисел, заканчивающаяся нулем. определить количество чисел не оканчивающихся на 2 и кратных расписать всё подробно и понятно в pascal.​

PascalABC.NET

begin

 ReadSeqIntegerWhile(p -> p <> 0).  // читать последовательность

   Where(p -> (p mod 3 = 0) and (Abs(p) mod 10 <> 2)). // условие отбора

   Count.  // посчитать, сколько отобралось

   Println  // вывести результат

end.