Найти произведение элементов массива, расположенных между первым и вторым нулевыми элементами

uses crt;
const size=7;
var
n:real;
x:array [1..size] of real;
i,m,k:byte;
s,z:real;
begin
clrscr;
writeln ('‡*¤*©вҐ н«-вл ¬*ббЁў*');
begin
write('x[',i,']=');
readln(x[i]);
end;
s:=0;
for i:=1 to size  do
begin
write ('x[',i,']=');
readln (x[i]);
if x[i]>0 then s:=s+x[i];
end;
if x[i]<0 then
write ('б㬬* Ї®«®¦ЁвҐ«м*ле н«Ґ¬Ґ*в®ў а*ў** ',s:6:3)  ;
readln
end.

uses crt;
const nmax=100;
var a:array[1..nmax] of real;
    n,i,i1,i2,k,x:integer;
    p:real;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива, вещественные числа, в том числе ноли');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
k:=0;
i1:=0;
i2:=0;
k:=0;
x:=0;
for i:=1 to n do
 begin
  write(a[i]:0:2,' ');
  if a[i]>0 then k:=k+1;{количество положительных}
  if a[i]=0 then
   begin
    if x=0 then
     begin
      x:=1;
      i1:=i;{номер 1 ноля}
     end
    else if x=1 then
     begin
      x:=2;
      i2:=i;{номер 2 ноля}
     end
   end
 end;
writeln;
writeln;
writeln('Количество положительных=',k);
if i1=0 then write('В массиве нет нолей')
else
 begin
  writeln('Номер 1 нулевого=',i1);
  if i2=0 then write('В массиве только 1 ноль')
  else
   begin
    writeln('Номер 2 нулевого=',i2);
    if i2-i1=1 then write('Между 1 и 2 нулевыми нет элементов')
    else
     begin
      p:=1;
      for i:=i1+1 to i2-1 do
      p:=p*a[i];
      write('Произведение элементов между 1 и 2 нулевыми=',p:0:2);
     end
   end
 end;
 readln
end.

uses crt;
var n,i:integer;
    f:real;
begin
clrscr;
repeat
write('Введите натуральное нечетное число n=');
readln(n);
until (n>0)and(n mod 2<>0);
f:=1;
i:=1;
while i<=n do
 begin
  f:=f*i;
  i:=i+2;
 end;
write('n!!=',f:0:0);
readln
end.