Как бы вы ответили. Программа вычисления суммы элементов в одномерном массиве

// Пример программы на языке Паскаль.


var   i, sum, n : integer;           // объявляем переменные целочисленного типа.   arr : array of integer;       // объявляем массив.Begin    writeln('Введите размерность массива:');       // вывод строки на экран.   read(n);                                                       // считываем размерность массива.   setlength(arr,n);                                          // выделяем память под массив.     for i:= 0 to (n-1) do                                 // начало цикла.      begin       arr := random(-100, 100); // заполняем элемент массива числом из диапазона -100; 100.       sum := sum + arr; // считаем сумму элементов массива.      end;   writeln('Сумма элементов в массиве равна: ', sum);       // вывод строки на экран.End.