task1

const n=10;
var a:array[1..n] of integer;
    i,k:integer;
Begin

  k:=0;

  for i:=1 to n do begin

    read(a[i]);

    if i>2 then begin
      if abs((a[i-1])) div abs((a[i]))>=3 then k:=k+1;
      if abs((a[i-1])) div abs((a[i-2]))>=3 then k:=k+1;
    end;

  end;

  writeln(k);

End.