Отыскать сумму частей массива состоящего из n частей элементы вводятся случайным

var i,n,b:integer;

a:array [1..100] of integer;

begin

Randomize;

write('Сколько частей в массиве: ');

readln(n);

write('Массив: ');

for i:= 1 to n do

begin

a[i]:=random(10);

write(a[i],' ');

b:=b+a[i];

end;

writeln(' ');

write('Сумма всех элементов массива: ',b);

end.