var a,b:array[1..100000] of longint;
i,c:longint;
begin
read(c);
for i:=1 to c do
read(a[i]);
b[1]:=1;
b[2]:=1;
for i:=3 to c do
b[i]:=b[i-1]+b[i-2];
for i:=1 to c do
if a[i]<>b[i] then begin writeln(i);break;end;
for i:=1 to c do
write(b[i],' ');
end.
/**************************************************************
	Problem: 1816
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/