Program bestanhvan;
uses crt;
var a,b,i,n,dem,fi,f2,f3:longint;
function naxi(x:longint):boolean;
var b:array[1..1000] of longint;
k:longint;
begin
b[1]:=1;b[2]:=1;k:=2;
repeat
k:=k+1;
b[k]:=b[k-1]+b[k-2];
until (b[k]>x) or (b[k]=x);
if b[k]=x then exit(true);
exit(false);
end;
begin
clrscr;
dem:=0;
read(a,b);
for i:=a to b do
if naxi(i) then dem:=dem+1;
write(dem);
readln;
end.

uses crt;
var c:array[1..10000]of longint;dem,i,a,b:longint;
begin
 clrscr;
  write('a=');readln(a);
  write('b=');readln(b);
  c[1]:=1;
  c[2]:=1;
  for i:=3 to 46 do c[i]:=c[i-1]+c[i-2];
  for i:=a to b do if(c[i] in [a..b])then inc(dem);
  write(dem);
 readln;
end.