program z1;
var A:array[1..100] of integer;
i,n:byte;
begin
readln(n);
for i:=1 to n do
readln(A[i]);
for i:=1 to n do
if A[i]=0
then write(i:3);
end.