procedimientos :))

para aro :radio
haz  "avance :radio*tan 1
repite 360 [av :avance gd 1]
fin

para circulos
circulo 20
circulo 40
circulo 60
circulo 80
fin