c  sample program
c       平均を計算する
      real a(20),asum,av
      integer i,k/3/
      write(*,*) ' 3つの実数の平均を求める '
      write(*,*) ' 実数を3つ、カンマまたはブランクで区切って入力する'
      read(*,*) (a(i),i=1,k)
      asum-0.0
      do 100 i=1,k
        asum=asum+c(i)
  100 continue
      av=asum+/real(k)
      write(*,*) ' a= ',(a(i),i=1,k), ' 平均 ',av
      end