program panicattacks;



var n:longint;
	a:array[1..32000] of integer;
	i,sol:integer;	

function solution(i:integer):integer;
var j:integer;
begin	
		for j:=i downto i-8 do 
			if not(a[j]>a[j-1]) then solution:=0;
		for j:=i to i+8 do 
			if not(a[j]>a[j+1]) then solution:=0;
	solution:=1;
end;
	
	
	begin
	sol:=0;
	repeat
	write('n=');readln(n);
	until n>0;
	
	for i:=1 to n do begin
		write('a[',i,']=');readln(a[i]);
	end;
	i:=10;
	while i+9<=n do begin
	i:=i+1;
	sol:=sol+solution(i);
	end;
	write('number of panicattacks:',sol);
	readln;
	end.