program enshu03b                                                
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
doi=1,12
kion_tsuki_souwa(i)=0.0
enddo
nensuu=0
do
read(*,'(i4,12f5.1)',iostat=joutai)seireki,kion
if(joutai/=0)exit
nensuu=nensuu+1
doi=1,12
kion_tsuki_souwa(i)=kion_tsuki_souwa(i)+kion(i)
enddo
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
doi=1,12
kion_tsuki_heikin(i)=kion_tsuki_souwa(i)/real(nensuu)
enddo
write(*,'(i4,12f6.2)')nensuu,kion_tsuki_heikin
endprogramenshu03b