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.