Обрисовать нужные процедуры и составить программку для рисования пенсне.

Процедура окружности (верный 360-угольник с длиной стороны, заданной переменной А):
TO OKR :A
REPEAT 360 [FD :A RT 1]
END
Воззвание к процедуре окружности, к примеру такового размера:
OKR 0,7
Процедура рисования дуги (половина окружности 180-угольника с длиной стороны, данной параметром):
TO DUGA :B
REPEAT 180 [FD :B LT 1]
END
Воззвание к процедуре дуги: DUGA 0,5
Составим программку для пенсне:
TO PENSNE :A :B
OKR :A DUGA :B OKR :A RT 180
END
PENSNE 0,7 0,5