program SumOfElementsInInterval;

var
A: array[1..10] of Real;
sum: Real;
i: Integer;

begin
sum := 0;

A[1] := 0;
A[2] := -1.9;
A[3] := 2.9;
A[4] := 7.5;
A[5] := -3;
A[6] := 1.86;
A[7] := -1;
A[8] := -3.5;
A[9] := -0.5;
A[10] := 5;

for i := 1 to 10 do
begin
if (A[i] >= -3) and (A[i] <= 3) then
sum := sum + A[i];
end;

writeln('Сумма элементов массива A, значение которых принадлежит интервалу [-3,3]: ', sum);

end.