! 例題4-4 万年暦の準備
PROGRAM ex4_4
IMPLICIT NONE
INTEGER:: year, days
PRINT *, 'Input a year:'
READ *, year
days = 365 * year + year / 4 - year / 100 + year / 400
PRINT *, year, '年12月31日は,1年1月1日から数えて', &
days, '日目です。'
END PROGRAM ex4_4
ISDkvovpoYw0LTQg5LiH5bm05pqm44Gu5rqW5YKZClBST0dSQU0gZXg0XzQKCiAgSU1QTElDSVQgTk9ORQogIElOVEVHRVI6OiB5ZWFyLCBkYXlzCgogIFBSSU5UICosICdJbnB1dCBhIHllYXI6JwogIFJFQUQgKiwgeWVhcgoKICBkYXlzID0gMzY1ICogeWVhciArIHllYXIgLyA0IC0geWVhciAvIDEwMCArIHllYXIgLyA0MDAKICBQUklOVCAqLCB5ZWFyLCAn5bm0MTLmnIgzMeaXpeOBr++8jO+8keW5tO+8keaciO+8keaXpeOBi+OCieaVsOOBiOOBpicsICYKICAgICAgICAgICBkYXlzLCAn5pel55uu44Gn44GZ44CCJwoKRU5EIFBST0dSQU0gZXg0XzQ=