Ввести массив из 10 положительных чисел. программа должна посчитать количество чисел, которые делятся на 2 или на 3. написать программу pascalabc.

Var a : array [1..10] of integer ; 

begin 
for var i:=1 to 10 do   
read(a[i]); 
var s:=a.Where(t->((t mod 2=0) or (t mod 3=0))); 
Writeln('Кол-во: ',s.Count)
end.