дан массив из 10 вещественных частей вычислить творение частей , попадающих

если массив = [0,1,2,3,4,5,6,7,8,9]

то творение частей на отрезке от 0 до 1 равен 0*1 = 0

Вариант с наполнением с клавиатуры.
----------------------------------------------------------
var
  A: array [1..10] of real;
  i: byte;
  mult: real;
begin
  mult := 1;
  for i := 1 to 10 do
  begin
    write('Введите A[',i ,'] = ');
    readln(A[i]);
  end;
  writeln('Сгенерированный массив.');
  for i := 1 to 10 do
  begin
    write(A[i]:1:2);
    write('  ');
    if (A[i] gt; 0.00) and (A[i] lt; 1.00) then
      mult := mult * A[i]; 
  end;
  writeln;
  if mult lt;gt; 1 then
    writeln('Творенье = ', mult:2:4)
  else
    writeln('Элементы в спектре от 0 до 1 отсутствуют.');
end. 

----------------------------------------------------------
Вариант с случайным наполнением.
----------------------------------------------------------
var
  A: array [1..10] of real;
  i: byte;
  mult: real;
begin
  mult := 1;
  randomize;
  writeln('Сгенерированный массив.');
  for i := 1 to 10 do
  begin
    A[i] := random*10;
    write(A[i]:1:2);
    write('  ');
    if (A[i] gt; 0.00) and (A[i] lt; 1.00) then
      mult := mult * A[i];  
  end;
  writeln;
  if mult lt;gt; 1 then
    writeln('Произведение = ', mult:2:4)
  else
    writeln('Элементы в спектре от 0 до 1 отсутствуют.');
end.