Вычислите сумму пяти элементов массива

Первый вариант программы: Const    N = 5; Var    A:array[1..N] of integer;    i:integer;    S:real; Begin Randomize; S:=0; Write('Исходный массив:'); For i:= 1 to N do     Begin     A[i]:=random(21)-10;     Write(' ',A[i]);     S:=S+A[i];     End; WriteLn; WriteLn('Сумма его элементов: ',S); End. Пример: Исходный массив: -6 -9 8 7 1 Сумма его элементов: 1 Второй вариант программы: Const    N = 13; Var    A:array[1..N] of integer;    i,S,B:integer; Begin Randomize; S:=0; Write('Исходный массив:'); For i:= 1 to N do     Begin     A[i]:=random(21)-10;     Write(' ',A[i]);     End; WriteLn; Write('Введите номера пяти элементов: '); For i:= 1 to 5 do     Begin     Read(B);     S:=S+A[B];     End; WriteLn('Их сумма равна: ',S); End. Пример: Исходный массив: 0 -9 6 4 -7 -1 9 -7 -2 -4 -6 4 -1 Введите номера пяти элементов: 3 4 7 12 1 Их сумма равна: 23