REAL A(10)
      DATA A/10*1/
      I=1
      J=2
      L=3
      WRITE(6,100)I,J,(K,A(K),K=1,I),L
  100 FORMAT(I4)
      END