!
!  NxN display
!

      PROGRAM main
      INTEGER I, J, N
      WRITE(*, '(A)', advance='no') 'Input N: '
      READ(*, *) N
      DO I=1, N
         DO J=1, N
            WRITE(*, '(I4)', advance='no') I*J
         ENDDO
         WRITE(*, *)
      ENDDO
      END PROGRAM main