PROGRAM Carpim_Tablosu
!---------------------------------------------------------
! 06prg04.f95
! Basit bir carpim tablosu.
!---------------------------------------------------------
IMPLICIT NONE
INTEGER :: K, J, C

   WRITE(*, FMT='(A)', ADVANCE='No') "  x |" 

   DO K = 1, 10
      WRITE(*, FMT='(I4)', ADVANCE='No') K
   END DO
   PRINT *
   PRINT *,"---+-----------------------------------------"

   DO K = 1, 10

      WRITE(*, FMT='(I3,A)', ADVANCE='No') K," |"

      DO J = 1, 10
        C = K * J
        WRITE(*, FMT='(I4)', ADVANCE='No') C
      END DO

      PRINT *

   END DO

END