По turbo Pascal. Дан массив A размерности N. Сложить А[1] и A[5] элементы массива. Помогите,…

Program asd; USES crt; Const n=5; varA: array [1… n] of integer; i,s: integer; BEGINClrscr; //Sapolnyaem massiv slychainymi chislami.For i: =1 to n dobeginA[i]: =random (10) -5; Write ('| ',A[i],' |'); end; // sam prozes cheta.For i: =1 to n dobeginS: =A[i]+S; // Naxodim summy.end; Writeln; Writeln ('Summa ryada ravna: ',S); Readln; END. Что не понял, спрашивай. Массив имеет отрицательные элементы, считает (A[i]+A[i])+s