Решите задачу в паскале, использование массивов, пожалуйста Вычислить сумму тех элементов массива А(10), числовые значения которых принадлежат полуинтервалу i ≤ A[i] ≤ i+1.

const   n=10; var   i,s:integer;   a:array[1..n] of integer; begin   Randomize;   Write('Исходный массив: ');   s:=0;   for i:=1 to n do begin     a[i]:=Random(15)+1;     Write(a[i],' ');     if (a[i]>=i) and (a[i]<=i+1) then s:=s+a[i]     end;   Writeln;   Write('Сумма элементов в заданном полуинтервале равна ',s) end. Пример выполнения Исходный массив: 8 9 8 12 10 3 8 1 10 2 Сумма элементов в заданном полуинтервале равна 18