Repeticion indexada

/*se desea colocar
1 bolita roja en la celda actual,
2 en la celda lindante al Norte,
3 en la siguiente,
y asi hasta 6 bolitas en la celda a 5 lugares al
Norte de la actual, se puede escribir el siguiente comando*/
procedure PrepararTablero()
{
VaciarTablero()
IrAlOrigen()
}
procedure PonerRojas(cant){
{Poner(Rojo)}
}
procedure PonerN(cant,dir){
repeatWith cant in 1..6
{ PonerRojas(cant); Mover(Norte) }
}
procedure Main(){
PrepararTablero()
PonerN(6,Norte)
}