[输入输出] 有关输出格式不正确的求助~

program main
implicit none

integer :: year

write(*,*) "请输入年份："
read(*,*) year
if ( (mod(year,4))==0 .or. (mod(year,400)==0 .and. mod(year,100)==0) ) then
	write(*,"('该年是闰年，且一年有'I3'天' )" ) '366'
else
	write(*,"('该年不是闰年，一年有'I3'天' )" ) '365'
end if
stop	 
end