const
	MAXN = 100;
var
	n,k,i : longint;
	a : array [1..MAXN] of longint;
 
function dfs(v : longint) : longint;
var
	result : longint;
begin
	result:=0;
	if (v = 0) then
		result := 0
	else
	begin
		if (a[v] > 0) then
			inc(result);
		inc(result,dfs(v-1));
	end;
	dfs := result;
end;
 
begin
	write('Vvedite chslo elementov posledovatelnosti:');
	readln(n);
	for i:=1 to n do
	begin
		write('a[',i,'] = ');
		readln(a[i]);
	end;
	k := dfs(n);
	writeln;
	writeln('Kolichestvo polozhitelnyh:');
	writeln('k = ',k);
	readln;
	readln;
end.