DO 10 M =  5,7,1
              A = 3 * M
              WRITE (6, 56) A, M
   10      CONTINUE
   56      FORMAT (I10)
           STOP
           END