C++ :

#include<bits/stdc++.h>
using namespace std;
int main()
{
	int n,m,i,s=0;
	cin>>n>>m;
	for(i=n;i<=m;i++){
		if(i%6==0||i%8==0){
			s++;
		 		}
	}
	cout<<s<<endl;
	return 0;
}

Pascal :

var a,b,i,s:longint;
begin
  readln(a,b);
  for i:=a to b do
   begin
    if (i mod 6=0)or(i mod 8=0) then s:=s+1;
   end;
  writeln(s);
end.