Сформулировать целочисленый массив b из 5 элементов каждый элемент массива случайное число от 30 до 70 найти сумму массива

Const n=5;

var b: array [1 ... n] of integer;

sum, i:integer;

begin

Randomize;

writeln ('---b:---');

for i:=1 to n do begin

b[i]:=Random (41) + 30;

write (b[i]:6);

end;

writeln;

sum:=0;

for i:=1 to n do sum:=sum+b[i];

writeln ('sum=', sum);

end.