Дан массив Z(17). Найти количество отрицательных элементов после третьего нулевого элемента.

program h1;
uses crt;
var z:array[1..17] of integer;
    n,i,k: integer;
begin
clrscr;
writeln('vvedite z:');
for i:=1 to 17 do
begin
  writeln('z[',i,']');
  read(z[i]);
end;
writeln('z[i]');
writeln;
for i:=1 to 17 do
 write(z[i], ' ');
 
n:=0;
k:=0;
for i:=1 to 17 do
begin
if (z[i]=0) and (n<>3) then
inc(n);
if (n=3) and (z[i]<0) then
inc(k);
end;
writeln;
writeln('k: ',k);
readln;
readln;
end.

program h1;
uses crt;
var a:array[1..16] of integer;    
    n,i,k,s: integer;
begin
clrscr;
writeln('vvedite z:');
for i:=1 to 16 do
begin
  writeln('a[',i,']');
  read(a[i]);
end;
writeln('a[i]');
writeln;
for i:=1 to 16 do
 write(a[i], ' ');
 
n:=0;
k:=0;
s:=1;
for i:=1 to 16 do
if (a[i]=0) then
n:=i;
 
for i:=16 downto 1 do
if a[i]=0 then
k:=i;
 
for i:=k+1 to n-1 do
s:=s*a[i];
writeln;
writeln('s: ',s);
readln;
readln;
end.

program h1;
uses crt;
var a:array[1..16] of integer;
   
    n,i,k,s: integer;
begin
clrscr;
writeln('vvedite z:');
for i:=1 to 16 do
begin
  writeln('a[',i,']');
  read(a[i]);
end;
writeln('a[i]');
writeln;
for i:=1 to 16 do
 write(a[i], ' ');
 
s:=1;
i:=1;
while a[i]<>0 do
inc(i);
n:=i;
 
i:=16;
while a[i]<>0 do
dec(i);
k:=i;
 
 
while n<k-1 do
begin
inc(n);
s:=s*a[n];
end;
writeln;
writeln('s: ',s);
readln;
readln;
end.