Заполнить массив целых чисел В [1..10] Найти сумму элементов массива

​

Примечание:

Предполагалось ручное заполнение, не случайными числами. Предполагается ввод каждого элемента массива на новой строке, предполагается вывод суммы на следующей строке.

Использовался PascalABC.net 3.7

Исходный код:

const N = 10;

var

 B: array [1..N] of integer;

 i: integer;

 s: integer;

begin

 for i:=1 to N do

   readln(B[i]);

 for i:=1 to N do

   s := s + B[i];

 Writeln(s);

end.