integer::days(12)
  integer::happy,sum
  data days/31,28,31,30,31,30,31,31,30,31,30,31/
  happy = 0
  do i=1,12
     do j=1,days(i)
        sum = j/10+mod(j,10)
        if (i.eq.sum) then
           happy = happy + 1
        endif
     enddo
  end do
  print '(i0)',happy
end program