Ввести массив из 10 положительных чисел. программа должна посчитать сумму чисел кратных 5. написать программу 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 5 = 0));  
Writeln('Cумма: ',s.Sum)
end.