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