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)==1)THEN
PRINT *,year, '年 12 月 31 日は，１年１月１日から数えて', & 
days, '日目の月曜日です。'
ELSE IF(MOD(days,7)==2)THEN
PRINT *,year, '年 12 月 31 日は，１年１月１日から数えて', & 
days, '日目の火曜日です。'
ELSE IF(MOD(days,7)==3)THEN
PRINT *,year, '年 12 月 31 日は，１年１月１日から数えて', & 
days, '日目の水曜日です。'
ELSE IF(MOD(days,7)==4)THEN
PRINT *,year, '年 12 月 31 日は，１年１月１日から数えて', & 
days, '日目の木曜日です。'
ELSE IF(MOD(days,7)==5)THEN
PRINT *,year, '年 12 月 31 日は，１年１月１日から数えて', & 
days, '日目の金曜日です。'
ELSE IF(MOD(days,7)==6)THEN
PRINT *,year, '年 12 月 31 日は，１年１月１日から数えて', & 
days, '日目の土曜日です。'
ELSE IF(MOD(days,7)==0)THEN
PRINT *,year, '年 12 月 31 日は，１年１月１日から数えて', & 
days, '日目の日曜日です。'
END IF
END PROGRAM ex4_4