Clase 3 Ejercicio 3.1.1.A

/*La misma correspondencia debe existir si se usan varios parametros en la definicion del procedimiento: al invocarlo deben usarse la misma cantidad de argumentos.
Si tomamos el procedimiento de dibujar lıneas utilizado en la solucion
al ejercicio 3.1.1*/
procedure PrepararTablero()
{VaciarTablero(); IrAlOrigen()}

procedure DibujarLineaHacia(color,dir){
Poner(color); Mover(dir)
}
procedure DibujarCuadradoDeColor(){
DibujarLineaHacia(Verde,Norte)
DibujarLineaHacia(Rojo,Este)
DibujarLineaHacia(Negro,Sur)
DibujarLineaHacia(Azul,Oeste)
}
procedure Main(){
PrepararTablero()
DibujarCuadradoDeColor()
}