C       Simple program
C                     

        PROGRAM s4
	INTEGER A(1000,1000)
        INTEGER N,I,J,K

	N = 20 
	
	DO I= 1,N,2
	 DO J = 1,N,1
	  DO K = 1,I,1
             A(I+N,J+K-1) = I*N+I
	  ENDDO	
	 ENDDO
	ENDDO

        END