Clase 4 Ejercicio 3.3.4

/*Escribir el procedimiento AgregarAliados
que agrega tantos aliados como el numero indicado como
parametro*/

function hayXEnemigosAl(dir){
Mover(dir)
return (nroBolitas(Rojo))
}
procedure AgregarAliados(){
repeatWith i in 1..hayXEnemigosAl(Norte)
{Poner(Rojo)}

}

procedure Main(){
AgregarAliados()
}