C       Simple program
C                     

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

	N = 20 

	   DO I = 1,N,1
	    DO J = 1,N,1
	     DO K = 1,I,1
	       A(J,K) = A(J+1,I)
	     ENDDO
	    ENDDO
	   ENDDO	

        END