program enshu06a                                          
implicitnone
integer::seireki,tsuki,joutai,bangou
real,dimension(12)::kion
bangou=1
do
read(*,'(i4,12f5.1)',iostat=joutai)seireki,kion
if(joutai/=0)exit
dotsuki=1,12
write(*,'(2i5,i2.2,f6.1)')bangou,seireki,tsuki,&
kion(tsuki)
bangou=bangou+1
enddo
enddo
endprogramenshu06a