program smpl7
        implicit none
        integer i,j,k
	do i = 1,3
	    do j = 1,3
		k = i+j
		write(*,*) k**2
	    end do ! loop on j
	end do ! loop on i
        stop
	end program smpl7