! �ݏ�
PROGRAM ex1_3

  INTEGER :: m, n

  PRINT *, 'Input an integer: '
  READ *, n

  m = n
  m = m * n ; PRINT *, m
  m = m * n ; PRINT *, m
  m = m * n ; PRINT *, m
  m = m * n ; PRINT *, m

END PROGRAM ex1_3