В программе используется одномерный целочисленный массив A с индексами от 0 до 9. Значения
элементов равны 1, 2, 4, 3, 5, 6, 8, 7, 3, 4, т.е. A[0]=1, A[1]=2 и т.д. Определите значение переменной s
после выполнения следующего фрагмента программы:
s := 0;
for i:=1 to 9 do
if A[i-1] < A[i] then begin
A[i] := A[i-1] + 1;
s := s + A[i]
end