Используя функцию рисования пера, нарисовать цветок из 5 лепестков и раскрасить

Покрасим перо в красный цвет:
TO PEROS :A :B :C
PERO :A :B :C
RT 45 PU FD :C / 2 PD
SETC 15 красноватый цвет
FILL
BK :C / 2 LT 45
SETC 9
END

nbsp;
Добавим переменную N для числа лепестков:
TO SV :A :B :C :N
REPEAT :N [PEROS :A :B :C RT 360 / :N]
END
Вызов программы цветка:
SV 0.12 0.6 0.6 5