PAGE 163 (5-A)

      DIMENSION A(6,10),S(6),D(10)
      DO 10 I=1,6
      SUM=0.0
      DO 20 J=1,10
      READ(*,*)A(I,J)
      SUM=SUM +A(I,J)
  10    CONTINUE
      S(I)=SUM
  20    CONTINUE
      WRITE(*,*)(S(I),I=1,6)
      DO 30 J=1,10
      SUM=0.0
      DO 40 I=1,6
      READ(*,*)A(I,J)
      SUM=SUM+A(I,J)
  30    CONTINUE
      D(J)=SUM
  40    CONTINUE
      WRITE(*,*)(D(J),J=1,10)
      DO 50 I=1,6
      CHAIN=CHAIN+S(I)
  50    CONTINUE
      WRITE(*.*)CHAIN
      PAUSE
      STOP
      END