! 九九
PROGRAM ex5_2

  IMPLICIT NONE
  INTEGER :: m, n, mn

  var1: DO m = 2, 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 PROGRAM ex5_2