Я так понимаю это среда Alplogo
очистить
домой
толщинапера 3
фигура (150)
переход (150)
фигура(50)
переход(450)
фигура(50)
подпрограмма фигура(с)
[
пероопусти
цветпера 1
повтори 20[повтори4[вперёд с направо 90]направо 18]
]
подпрограмма переход (d)
[
пероподними
иди d,150
]
