program enshu06b                                                    
implicitnone
integer::seireki,tsuki,joutai,bangou,kosuu
real,dimension(1800)::kion1retsu
kosuu=0
do
read(*,'(2i5,i2.2,f6.1)',iostat=joutai)bangou,seireki,tsuki,&
kion1retsu(bangou)
if(joutai/=0)exit
kosuu=kosuu+1
enddo
dobangou=1,kosuu
write(*,'(i4,f6.1)')bangou,kion1retsu(bangou)
enddo
endprogramenshu06b