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

beginvar 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.