Clase 3 Ejercicio 3.1.1

/*Definir un procedimiento DibujarCuadradoDeColor que, dado un color como parametro,
dibuje un cuadrado de lado dos de dicho color, utilizando
un unico procedimiento para dibujar lıneas.*/
procedure PrepararTablero()
{VaciarTablero(); IrAlOrigen()}

procedure DibujarLineaHacia(dir){
Mover(dir); Poner(Rojo)
}
procedure DibujarCuadradoDeColor(){
DibujarLineaHacia(Norte)
DibujarLineaHacia(Este)
DibujarLineaHacia(Sur)
DibujarLineaHacia(Oeste)
}
procedure Main(){
PrepararTablero()
DibujarCuadradoDeColor()
}