Определите сумму элементов массива, кратных 5
For I:=a to b do if mass[I] mod 5 = 0 then sum:=sum+mass[I];