Ex:16 - page 131

      dimension A(10)
      read(*,*)(A(i),i=1,10)
      N=9
      sum=0

      do 10 x=-5,5,0.5
         sum = 0

         do 20 k=1,10
            sum = sum + ( A(k) * (x)**N )
 20      continue

         Write(*,*)x,sum
         N=N-1

 10   continue

      pause
      stop
      end