algorithm Swap begin declare integer x = vx declare integer y = vy procedure swap() begin declare integer tmp tmp = x x = y y = tmp end end