Clase 5 Ejercicio 4.2.4

/*Escribir un procedimiento IrAlExtremo, que dada una direccion,
se mueve en esa direccion hasta que llega al borde del tablero
*/

procedure IrAlExtremo(dir){
while (puedeMover(dir))
{ Mover(dir) }
}

procedure Main(){
IrAlExtremo(Sur)
}