aprenda top :e :c :n :h
top3 :e :c :n :h
atr "i :i+1
top :e :c :n :h
fim

aprenda top1 :e :c
se :c<10 [un pt 120 pd 90 pf 10 pe 90 rotule "0 pe 90 pf 10 pd 90 pf 120 ul]
se :c=1[espere 5]
pd :c*6 pf 95 un pt 95 pe :c*6 pt 120 pd 90 
se :c<10[pf 20 rotule :c  pt 20 pe 90 un pf 120 pd :c*6 pf 95] 
se :c>9 [pf 10 rotule :c  pt 10 pe 90 un pf 120 pd :c*6 pf 95]
som [1000 40] espere :e ub pt 95 un 
pe :c*6 pt 140 pd 90 pf 11 pe 90
recortebit 25 15 pd 90 pt 11 pe 90 pf 140   ul
se :c=:n[pd :n*6 pf 75 pt 75 pe :n*6 ]
se :c=:h*5[pd :c*6 pf 50 pt 50 pe :c*6]
atr "c :c+1
se :c=60[pare]
top1 :e :c
fim

aprenda top2 :e :c :n
se :n<10[un pt 120 pd 90 pt 15 pe 90 rotule "0 pd 90 pf 15 pe 90 pf 120 ul]
pd :n*6 pf 75  pt 75 pe :n*6
un pt 120 pd 90 pf 5 pe 90 rotule ": pd 90
se :n<10 [pt 10 pe 90 rotule :n pd 90 pf 5]
se :n>9 [pt 20 pe 90 rotule :n pd 90 pf 15]
pe 90 pf 120
top1 :e :c 
un pt 140 pd 90 pt 15 pe 90 recortebit 35 15
pd 90 pf 15 pe 90 pf 140  pd :n*6 pf 75 ub pt 75 ul pe :n*6
se :n=:h*5[pd :n*6 pf 50 pt 50 pe :n*6]
atr "n  :n+1
se :n=60 [pare]
top2 :e :c :n
fim

aprenda top2.5 :e :c :n :j
se :n<10[un pt 120 pd 90 pt 15 pe 90 rotule "0 pd 90 pf 15 pe 90 pf 120 ul]
pd :n*6 pf 75  pt 75 pe :n*6
un pt 120 pd 90 pf 5 pe 90 rotule ": pd 90
se :n<10 [pt 10 pe 90 rotule :n pd 90 pf 5]
se :n>9 [pt 20 pe 90 rotule :n pd 90 pf 15]
pe 90 pf 120
top1 :e :c 
un pt 140 pd 90 pt 15 pe 90 recortebit 35 15
pd 90 pf 15 pe 90 pf 140  pd :n*6 pf 75 ub pt 75 ul pe :n*6
se :n=:h*5[pd :n*6 pf 50 pt 50 pe :n*6]
atr "n  :n+1
se :n=60 [pare]
top2 :e :c :n :j
fim

aprenda top3 :e :c :n :h 
se :h<10[un pt 120 pd 90 pt 40 pe 90 rotule "0 pd 90 pf 40 pe 90 pf 120 ul]
pd :h*30 pf 50 un pt 50 
pe :h*30  
un pt 120 pd 90 pt 20 pe 90 rotule ": pd 90 
se :h<10 [pt 10 pe 90 rotule :h pd 90 pf 30]
se :h>9 [pt 20 pe 90 rotule :h pd 90 pf 40]
pe 90 pf 120 ul
top2 :e :c :n 
un pt 140 pd 90 pt 50 pe 90 recortebit 35 15
pd 90 pf 50 pe 90 pf 140 
atr "h :h+1
se :h=23 [pare]
top3 :e :c :n :h
fim

aprenda top4 :e :c :n :h 
dt un pf 150 pe 90 pt 150 ul 
repita 4[pf 300 pe 90]
un pf 150 pd 90 pt 150 pe 45 pf 150 
mudecp 10 pinte pt 150 pd 45
pt 140 pd 90 pt 50 pe 90 recortebit 90 15
pd 90 pf 50 pe 90 pf 140
mudeel [2 2]
ul arco 360 110 arco 360 120 un
pd 3 pf 25 mudecp 15 pinte pt 25 pe 3 ul
mudeel [1 1]
un pf 115 mudecp 12 pinte pt 115 ul 
repita 60[un pf 102 ul pf 6 un pt 108 pd 6]
mudeel [3 3]
repita 12[un pf 102 ul pf 6 un pt 108 pd 30]
mudeel [2 2]
top :e :c :n :h
fim

Atribua "a 3.1304347826087
Atribua "b 88.4347826086957
Atribua "c 11
Atribua "d 41.4213562373095
Atribua "h 5
Atribua "l -5
Atribua "n 59
Atribua "r 0
Atribua "soma 98.1818181818182
Atribua "valido 1
