найдите сумму массива с задаными свойствами B(15) S-? где B[i]>5

var

mas:array[1..15]of integer;

i,s:integer;

begin

s:=0;

writeln('Элементы массива:');

for i:=1 to 15 do

begin

mas[i]:=Random(10)+5;

write(mas[i],' ');

s:=s+mas[i];

end;

writeln();

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

end.