Circle(x,y,r) – окружность.
Rectangle(x1,y1,x2,y2) – прямоугольник.
DrawPoly(n,x,y) – контур многоугольника, где n – число вершин; array[1 n+1,1 2] of integer.