Написать процедуры для рисования «лепестков» разной формы: 1) квадратных; 2) пятиугольных; 3) круглых.

ТО LEP :S :K
REPEAT :K [FD S RT 360 / :K]
END
Обращения к процедуре лепестков:
1)    квадратных (K=4) со стороной S=40:
LEP 40 4

2)    пятиугольных (K=5, S=35):
LEP 35 5

3)    круглых (K=180, S=1)::
LEP 1 180