program enshu03bb04                                             
implicitnone
integer::seireki,joutai
real,dimension(12)::kion
real::kion_nen_heikin,kion_nen_souwa
real::kion_nen_bunsan,kion_nen_hensa
real::kion2_nen_souwa,kion2_nen_heikin
real,dimension(12)::kion_tsuki_heikin,kion_tsuki_souwa
integer::i
integer::nensuu
kion_tsuki_souwa(4)=0.0
nensuu=0
do
read(*,'(i4,12f5.1)',iostat=joutai)seireki,kion
if(joutai/=0)exit
nensuu=nensuu+1
kion_tsuki_souwa(4)=kion_tsuki_souwa(4)+kion(4)
kion_nen_souwa=0.0
kion2_nen_souwa=0.0
doi=1,12
kion_nen_souwa=kion_nen_souwa+kion(i)
kion2_nen_souwa=kion2_nen_souwa+kion(i)**2
enddo
kion_nen_heikin=kion_nen_souwa/12.0
kion2_nen_heikin=kion2_nen_souwa/12.0
kion_nen_bunsan=kion2_nen_heikin-kion_nen_heikin**2
kion_nen_hensa=sqrt(kion_nen_bunsan)
write(*,'(i4,13f6.1,2f6.2)')seireki,kion,kion_nen_heikin&
,kion_nen_bunsan,kion_nen_hensa
enddo
kion_tsuki_heikin(4)=kion_tsuki_souwa(4)/real(nensuu)
write(*,'(i4,12f6.2)')nensuu,kion_tsuki_heikin(4)
endprogramenshu03bb04