Напишите программу для этих фигур

Я так понимаю это среда Alplogo

очистить

домой

толщинапера 3

фигура (150)

переход (150)

фигура(50)

переход(450)

фигура(50)

подпрограмма фигура(с)

[

пероопусти

цветпера 1

повтори 20[повтори4[вперёд с направо 90]направо 18]

]

подпрограмма переход (d)

[

пероподними

иди d,150

]