Clase 4 Ejercicio 3.2.24

/*Escribir un procedimiento PintarCeldaMarron que pinte una
celda de color marron (agregando bolitas de los cuatro colores en la celda actual)
solo si no hay bolitas de ningun color.
Considerar la utilizacion de la funcion del ejercicio anterior
y una alternativa condicional.*/

function hayAlgunaBolita(){
return (hayBolitas(Azul)|| hayBolitas(Negro)||hayBolitas(Rojo)|| hayBolitas(Verde))
}


procedure PintarCeldaMarron(){
if (not hayAlgunaBolita()){
Poner(Azul)
Poner(Negro)
Poner(Rojo)
Poner(Verde)
}
}

procedure Main(){
PintarCeldaMarron()
}