Помогите решить задачу. в Долгу не останусь, пожайлуста. Очень прошу, оч надо, срочно

Question

в Долгу не останусь, пожайлуста 
Задача: Заданные N произвольных чисел натурального ряда и действительное число А. Определить сумму членов последовательности, 
 есть меньше А по абсолютному значению

язык Pascal,задача на массив. 
Пример 
4)Распечатать те элементы массива S, индексы которых 
 являются степенями двойки. 
program Vector; 
uses crt; 
const max=100; 
var S:array[1..max] of integer; 
 n,i: integer; 
 
 procedure vuvod; 
 begin 
for i:=1 to n do write(s:4); 
end; 
 
begin 
writeln(‘Введите размер массива ‘); 
readln(n); 
for i:=1 to n do s:=i; {значения элементов массива равны своим индексам} 
vuvod; {исходный массив} 
writeln; 
{требуемые элементы массива} 
i:=1; 
while i<=n do begin 
write(s:4); i:=i*2 end; 
readkey 
end.

Влад Ибрагимов · Accepted Answer

не понятно условие, приведи пример и язык программирования

Игорь Крылов · Answer

не очень понятное условие 
const MAX_SIZE = 1000; 
var N: integer; A,s: real; 
b: array[1..MAX_SIZE] of real; 
begin 
readln(n,A); s:=0; 
for i:=1 to N do 
if abs(b[ i ])< A then s:=s + b[ i ]; 
Writeln(S); 
end.