PROGRAM ex4_4

  IMPLICIT NONE
  INTEGER:: year, days

  PRINT *, 'Input a year:'
  READ *, year

  days = 365 * year + year / 4 - year / 100 + year / 400
  
  IF ( MOD( days, 7 ) == 4 ) THEN
  PRINT *, year, '年12月31日は，１年１月１日から数えて', &
           days, '日目であり金曜日です'
           

END PROGRAM ex4_4