Написать программы, рисующие цветы с разным количеством лепестков различной формы.

Решение:
Исходная программа с параметрами, добавим переменную М – число лепестков:
ТО SV :M :S :K
REPEAT :M [LEP :S :K RT 360 / :M]
END
где
ТО LEP :S :K
REPEAT :K [FD :S RT 360 / :K]
END