сброс
пп
нов_ширина_пера 3
нов_цвет_пера 0,0,255
повтори 100 [
r=случайное 1,50
x=случайное 0,400
y=случайное 0,400
повтори 360 [
вп r
по 
вп 1
пп 
нд r+1
пр 1
]
иди x,y
]