program zhn;
var
  m,n,i,sum:integer;
begin
  write('Введите диапазон значений: ');
  readln(m,n);

  //второй способ
  while m<=n do begin
    m:=m+1;
    if m mod 4 = 0 then sum:=sum+1;
  end;
  writeln(sum);
  
end.