program main IMPLICIT NONE integer:: a,b,days(31)=1 read(*,*) a,b days(a:b)=0 write(*,*)sum(days(23:25)) end program main