Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Найти сумму элементов массива паскаль (pascal).

program Sum_Arr1;

  {найти сумму элементов массива паскаль}

const
  N = 10;
var   // раздел описания переменных паскаль
  i_ArNm: array[1..N] of integer;  //массив
  i, i_Sum: integer;
begin
  i_Sum := 0;
  randomize;
  Writeln('Программа: Найти сумму элементов массива паскаль');
  for i := 1 to N do
    i_ArNm[i] := random(30); //заполняем массив псевдослучайными числами 
  {Чтение массива, находим сумму всех элементов массива}
  for i := 1 to N do
    i_Sum := i_Sum + i_ArNm[i];
  WriteLn('Сумма всех элементов массива: ', i_Sum);
  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Результат:

Найти сумму элементов массива паскаль (pascal).