\(\(
Do[\ \ 
	z := \@\(2\^2 + y\^2\); 
\ \ 	
      p1 = Line[{{0, 0, 0}, {2, \(-1\), 0}, {2, 3, 0}, {0, 0, 0}}]; 
		
      p2 = Line[{{0, 0, 0}, {2, y, 0}, {2, y, z}, {0, 0, z}, {0, 0, 0}}]; 

      		p3 = Line[{{0, 0, 0}, {2, \(-1\), 0}, {2, \(-1\), \@5}, {0, 0, 
              \@5}, {0, 0, 0}}]; 
		
      p4 = Line[{{0, 0, 0}, {2, 3, 0}, {2, 3, \@13}, {0, 0, \@13}, {0, 0, 
              0}}]; 
		p5 = Point[{2, 3, 0}]; 
	
      Show[Graphics3D[{p1, p2, p3, p4, p5}, Axes -> False, Boxed -> False]], 
      
{y, \(-1\), 3, 0.1}]\)\)