-

procedure LineaNorte()
{
   Poner(Negro); Mover(Norte)
   Poner(Negro); Mover(Norte)
   Poner(Negro); Mover(Norte)
   Poner(Negro); Mover(Norte)
   Poner(Negro); Mover(Norte)
   Poner(Negro)
}

procedure CambiarColumna()
{
   Mover(Este); Mover(Sur)
   Mover(Sur); Mover(Sur)
   Mover(Sur); Mover(Sur)
}

procedure LineaNorte2()
{
IrAlOrigen(); Mover(Este); Mover(Norte); Sacar(Negro)
Mover(Norte); Sacar(Negro)
Mover(Norte); Sacar(Negro)
Mover(Norte); Sacar(Negro)
}

procedure LineaSurEste()
{
   Mover(Sur); Mover(Este); Sacar(Negro)
   Mover(Sur); Mover(Este); Sacar(Negro)
   Mover(Sur); Mover(Este); Sacar(Negro)
}

procedure LineaBase()
{
   Mover(Oeste); Sacar(Negro)
   Mover(Oeste); Sacar(Negro)
}

procedure AjustesIniciales()
{
   VaciarTablero(); IrAlOrigen()
   }

procedure DibujarCuadrado()
{
LineaNorte(); CambiarColumna()
LineaNorte(); CambiarColumna()
LineaNorte(); CambiarColumna()
LineaNorte(); CambiarColumna()
LineaNorte(); CambiarColumna()
LineaNorte(); IrAlOrigen()
}

procedure TrianguloVacio()
{
    LineaNorte2(); LineaSurEste(); LineaBase()
}

procedure DibujarFigura()
{
    DibujarCuadrado(); TrianguloVacio()
}

procedure Main()
{
AjustesIniciales(); DibujarFigura()
}