Составить программу нахождения суммы элементов массива,состоящего из 10 чисел

begin var sum:=0; var a:=arrRandom (10, -100, 100); for var i:=0 to length (a)-1 do sum+=a[i]; writeln ('Исходный массив: ', a); write ('Сумма элементов: ', sum);  end.