Код презентации скопируйте его
Методы PSet(x,y), цвет -точка Line(x1,y1)-(x2,y2), цвет -отрезок Line(x1,y1)-(x2,y2), цвет, B -прямоугольник Line(x1,y1)-(x2,y2), цвет, BF -закрашенный прямоугольник Circle(x,y),r,цвет -окружность Circle(x,y),r,цвет , , , k -эллипс Сls -очистка DrawWidth=3 -толщина линий
Синтаксис оператора For For счётчик=нач зн To кон зн Step шаг операторы (тело цикла) Next счётчик