uses crt;
var n,i,m,max,tong,j,k,kq:longint; a:array[1..10000000]of longint; d:text;
begin
clrscr;
   assign(d,'Fibo.inp');reset(d);
      readln(d,n);
   close(d);
   assign(d,'fibo.out');rewrite(d);
      a[1]:=1;
      a[2]:=2;
      m:=2;
      while a[m]<n do begin inc(m); a[m]:=a[m-1]+a[m-2]; end;
      for i:=m downto 1 do
         begin
            tong:=0; k:=0;
            for j:=i downto 1 do
               if tong+a[j]<=n then begin inc(tong,a[j]); inc(k); end;
            if (k>kq)and(tong=n) then begin max:=tong; kq:=k; end;
         end;
      writeln(d,kq);
   close(d);
end.

//////////////////////////////////////////////////////

Một số text cho bạn tham khảo: