Ex:4b - page 139

      dimension A(4),B(4),C(4),D(4),H(1)
      A(1)=2
      A(2)=-1
      A(3)=3
      A(4)=5

      B(1)=1
      B(2)=-5
      B(3)=3
      B(4)=4

      C(1)=2
      C(2)=1
      C(3)=1
      C(4)=3

      do 10 i=1,4
         D(i)= (2*A(i)) + (3*B(i)) - C(i)
 10   continue

      do 20 k=1,4
         H(1) = H(1) + ( A(k)*B(k) )
 20   continue

      write(*,*)(D(i),i=1,4)
      write(*,*) H(1)

      pause
      stop
      end