var s,i:integer;
  f:array[1..1000] of integer;
  begin
    f[1]:=1;
  f[2]:=1;
 i:=3; s:=2;
  while s<>102334154  do begin
  f[i]:=f[i-1]+f[i-2];
  s:=s+f[i];
  Writeln(i,'  ',f[i],'        ',s);
  i:=i+1;
  end;
  end.