понять, все ли я правильно написала. Вопрос:фрагмент программы обрабатывает на паскале элементы одномерного целочисленного массива A с индексами от 0 до 9. Перед началом выполнения данного фрагмента эти элементы массива имели значения 2, 4, 1, 8, 2, 6, 3, 2, 2, 1 (т.е. A[0] = 2, A[1] = 4, …, A[9] = 1 Определите значение переменной s после выполнения фрагмента. n:=10; s:=0; for i:=1 to n-1 do begin if a[i-1]>2*a[i] then begin a[i]:=2*a[i]; s := s+ a[i];Программа:program jfsdkp;var s, n, i:integer;const p=9;var a:array [0..p] of integer;beginfor i:=0 to p do begina[0]:=(2); a[1]:=(4); a[2]:=(1); a[3]:=(8); a[4]:=(2); a[5]:=(6); a[6]:=(3); a[7]:=(2); a[8]:=(2); a[9]:=(1); end; n:=10; s:=0; for i:=1 to n-1 do begin if a[i-1]>2*a[i] then begin a[i]:=2*a[i]; s := s+ a[i]; end; end;writeln (s);end.