program test;
var
 m,n,i,sum:integer;
 begin
  //третий способ
  write('Введите диапазон значений: ');
  readln(m,n);
  repeat
    
    m:=m+1;
    if m mod 4 = 0 then sum:=sum+1;
  until(m=n);
  writeln(sum);
end.