Hola, yo lo que haria es un contador simple.

vos tenes la altura que estaran dadas por el for. ahora bien, es mas simple de lo q crees...

do procedure

for i=1 to 4
     n=0+1
     print n
endfor

for i=1 to 4
     n=n-1
     print n
endfor

en procedure

sdos Higui