Во 2 строке добавляется только 1 число, поэтому дальше будет выход за границы листа.
Чтобы исправить: добавлять значения в цикле и в 3 строке range(len(A)) => range(len(A)-1)
Const
n = 10;
var
a: array[1..n] of integer;
j, s: integer;
begin
s := 0;
for j := 1 to n do
begin
read(a[j]);
if a[j] > 5 then inc(s, a[j]);
end;
writeln(s);
readln;
<span>end.</span>
Я думаю что 1-5....................... Но это не факт(
В программировании множеством объектов называют массивы (в некоторых языках ещё словарями, списками "сетами" и т.д.). В реальности множеством объектов можно назвать список, кучу, стопку и т.д.
===== PascalABC.NET =====
begin
var a := ReadReal('Введи длину ребра');
var v := Pi * a ** 3 / (4 * Tan(Pi / 6));
Writeln('V = ',v)
end.