‎#problem 16 page 131#

      DIMENSION A(10)
      N=9
      DO 10 I=1,10
      READ(*,*)A(I)
  10  CONTINUE
      DO 30 X=-5,5,0.5
      SUM=0.0
      DO 20 K=1,10
      SUM=SUM +(A(K)*X**N)
  20  CONTINUE
      N=N-1
      WRITE(*,*)X,SUM
  30  CONTINUE
      PAUSE
      STOP
      END