Clase 4 Ejercicio 3.2.7

/*
Reescribir el procedimiento PonerUnaDeCadaColor del ejercicio 2.4.1,
que ponga una bolita de cada color en la celda actual, pero con las siguientes
restricciones:
solo se puede utilizar un unico comando Poner en el cuerpo del procedimiento; no puede nombrarse explıcitamente ningun color (o sea, no puede utilizar ninguna de las siguientes expresiones: Azul, Negro, Rojo ni Verde.)*/
procedure PrepararTablero()
{
VaciarTablero()
IrAlOrigen()
}
procedure PonerUnaDeCadaColor(){
repeatWith col in minColor()..maxColor() {
Poner(col)
}
}

procedure Main(){
PrepararTablero()
PonerUnaDeCadaColor()
}