Clase 3 Ejercicio 3.1.4

/*Escribir un procedimiento DibujarCuadrado que dibuje cuadrados
de color color y de n celdas de lado. Confirmar que el lado del cuadrado
tenga exactamente n celdas, y no mas o menos (tener en cuenta que las lıneas
tienen ancho 1, y el ancho de la lınea que se superpone tambien cuenta para el
total). Utilizar la menor cantidad de procedimientos posible.*/

procedure PrepararTablero(){
VaciarTablero()
IrAlOrigen()
}

procedure DibujarLado(dir, largo, col) {
repeatWith indice in 1..(largo - 1) {
Mover(dir)
Poner(col)
}
}

procedure DibujarCuadrado(medida, color){
repeatWith indice in Norte..Oeste {
DibujarLado(indice, medida, color)
}
}




procedure Main() {
PrepararTablero()
DibujarCuadrado(8, Verde)
}