program
      
      integer cube(10),square(10)
      
      do 100 i = 1, 10
         cube(i) = i * i * i
	 square(i) = i * i
 100  end do
 
      do 210 j = 1, 10
         print *, j, square(j), cube(j)
 210  end do
 
      print *, square(2)
 
      stop
      end