Clase 6 Ejemplo 6.2.1

/*Imaginen el problema de copiar la cantidad de bolitas verdes de una celda a otra. La forma de saber la cantidad de bolitas de la celda actual es preguntar con la expresion
\nroBolitas". Es decir, si escribimos \nroBolitas(Verde)" esto representara el numero de bolitas verdes de la celda actual. Pero que pasa si yo quiero llevarme ese dato a la celda al Norte, para colocar esa cantidad de verdes pero de rojas en esa celda al Norte.?*/

procedure PonerX(cantidadVerdes, color){
repeatWith i in 1..cantidadVerdes
{Poner(Rojo)}
}

procedure CopiarVerdesHaciaElNorte() {
cantidadVerdes := nroBolitas(Verde) // Asignacion
Mover(Norte)
PonerX(cantidadVerdes, Rojo)
}

procedure Main(){
CopiarVerdesHaciaElNorte()
}