Код: Выделить всё
ввести меню1 мой_выбор 'Укажите фигуру' квадрат;круг
если [мой_выбор] == квадрат
рисовать прямоугольник 10 10 200 200
иначе
рисовать круг 200 10 400 200
конец
Код: Выделить всё
ввести меню1 мой_выбор 'Укажите фигуру' квадрат;круг
если [мой_выбор] == квадрат
рисовать прямоугольник 10 10 200 200
иначе
рисовать круг 200 10 400 200
конец