program dr_vinii_i_varenie;
var
d1,d2,d3,s:int64;
n:integer;
begin
// первая часть
d1:=100;
d2:=100;
s:=d1+d2;
n:=2;
while n<=15 do begin
d3:=d1+d2;
s:=s+d3;
d1:=d2;
d2:=d3;
n:=n+1;
end;
writeln(s div 1000);
// вторая часть
while s<=1000000 do begin
d3:=d1+d2;
s:=s+d3;
d1:=d2;
d2:=d3;
n:=n+1;
end;
writeln(n);
end.
