! うるう年の判定 program leapyear implicit none integer :: year write( 6, * ) "Input year : " ! 年の入力を促す read ( 5, * ) year ! キーボードから年を読み込む if ( mod( year, 4 ) == 0 ) then ! 4 で割り切れる時の処理 if ( mod( year, 100 ) == 0 ) then ! 100 で割り切れる時の処理 if ( mod( year, 400 ) == 0 ) then ! 400 で割り切れる時の処理 write( 6, * ) "Leap year!" else ! 400 で割り切れない時の処理 write( 6, * ) "Non leap year" end if else ! 100 で割り切れない時の処理 write( 6, * ) "Leap year!" end if else ! 4 割り切れない時の処理 write( 6, * ) "Non leap year" end if end program leapyear