Вычислить произведение (1/1)*(2/3)*(3/5)*(4/7)* пока результат не станет меньше наперед заданного числа E. Решить в VBA Excel.

var

 A: array [1..40] of Integer;

 i, c: Integer;

begin

   Randomize;

   WriteLn ('Массив случайных чисел:');

   for i := 1 to 40 do begin

     A [i] := Random (10);

     Write (IntToStr (A [i]) + ' ');

   end;

   c := 0;

   for i := 1 to 40 do begin

     if (A [i] mod 2  <> 0) and (A [i] mod 3 = 0) then   // первое условие - проверка на нечетность, второе - делимость на 3

     Inc (c);

   end;

   Writeln;

   WriteLn ('Количество нечетных чисел, которые делятся на 3 = ' + IntToStr (c));

end.

const N = 100;

var a: array [1..N] of integer;  

       i, count, sum, p: integer;

       arith: real;

       mult: biginteger;

begin

       randomize;

       for i:= 1 to N do a[i]:= random(1, 1000);

       sum:= 0;

       for i:= 1 to N do begin

           if a[i] mod 2 = 0 then begin

               inc(count);

               sum:= sum + a[i];

               arith:= sum / count;

           end;

           if a[i] mod 2 = 0 then begin

               p:= a[i] * a[i];

               if mult = 0 then mult:= p else mult:= mult * p;

               // Произведение капец длинное

               if a[i] mod 3 = 0 then a[i]:= i * i;

           end

       end;

      writeln(arith);

      writeln(mult);

end.