!-----  Ex5_2:   九九     -----
      INTEGER :: m, n, mn
var1: DO m = 1, 9
var2:    DO n = 1, 9
             PRINT*, m, '　かける', n, '？'
             READ*, mn
             IF(mn == m*n) THEN
                 PRINT*,'正解です。'
             ELSE
                 PRINT*,'誤りです。'
             END IF
         END DO var2
      END DO var1
      END