Вычислить сумму тех элементов массива a(10) числовые значения которых принадлежат полуинтервалу i< =a[10]< =i+1

Program a1;<br />var i, S : integer;<br />a array [110] of integer;<br S:=0 />begin<br />for i:=1 to do 5;<br />i<=A[10]<=i+1;<br />writeln('a[i]=, ');<br />for i:=1 to 5 do if i<0 then S:=S+ a[i] writeln(S) end