Function F(n:integer):integer; //Рекурсивная функция Фибоначчи begin if (n=1) or (n=2) then F:=1 else f:=f(n-1)+f(n-2); end; var s,i:integer; begin i:=1; while s<>102334154 do begin s:=s+f(i); Writeln(i,' ',s); i:=i+1; end; end.