program W implicit none integer::A,B,i integer::cnt=0 read*,A,B do i=A,B if(mod(A+B+i,3)==0)cnt=cnt+1 end do print"(i0)",cnt end program W