Дано N действительных чисел. Вычислить произведение тех членов последовательности, для которых выполнено условие...

[c@rtman]

ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ.СОСТАВИТЬ ПРОГРАММУ И АЛГОРИТМ
даны натуральное число n,действительные числа а1,...,an.Вычислить произведение тех членов ai,последовательности a1....,an,для которых выполнено i+1<a<2i

[newerow1989]

const n=15;
var a:array[1..n] of integer;
    i,s:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      a[i]:=Random(21);
      Write(a[i],'  ');
   end;
   Writeln;
   s:=1;
   For i:=1 to n do
      If (i+1<a[i]) and (a[i]<2*i) then
         s:=s*a[i];
   Writeln(s);
   Readln;
end.

Сойдет?