Вывести треугольник, прямоугольник, ромб, шестиугольник, круг линиями разного цвета, с разной внутренней штриховкой и закраской на цветном фоне — Pascal(Паскаль)

uses graph;
var g,d:integer;
    p:array[1..7] of Pointtype;
begin
g:=0;
initgraph(g,d,'');
{treugolnik}
p[1].x:=50;p[1].y:=150;
p[2].x:=150;p[2].y:=150;
p[3].x:=100;p[3].y:=50;
p[4].x:=50;p[4].y:=150;
setlinestyle(0,0,3);
setcolor(14);
drawpoly(4,p);
setfillstyle(8,2);
fillpoly(4,p);
{prymougolnik}
p[1].x:=200;p[1].y:=50;
p[2].x:=350;p[2].y:=50;
p[3].x:=350;p[3].y:=150;
p[4].x:=200;p[4].y:=150;
p[5].x:=200;p[5].y:=50;
setlinestyle(0,0,3);
setcolor(3);
drawpoly(5,p);
setfillstyle(6,12);
fillpoly(5,p);
{romb}
p[1].x:=400;p[1].y:=100;
p[2].x:=500;p[2].y:=50;
p[3].x:=600;p[3].y:=100;
p[4].x:=500;p[4].y:=150;
p[5].x:=400;p[5].y:=100;
setlinestyle(0,0,3);
setcolor(5);
drawpoly(5,p);
setfillstyle(9,6);
fillpoly(5,p);
{6-ugolnik}
p[1].x:=50;p[1].y:=300;
p[2].x:=50;p[2].y:=400;
p[3].x:=150;p[3].y:=450;
p[4].x:=250;p[4].y:=400;
p[5].x:=250;p[5].y:=300;
p[6].x:=150;p[6].y:=250;
p[7].x:=50;p[7].y:=300;
setlinestyle(0,0,3);
setcolor(9);
drawpoly(7,p);
setfillstyle(5,10);
fillpoly(7,p);
{krug}
setlinestyle(0,0,3);
setcolor(11);
Circle(400,350,100);
setfillstyle(11,13);
fillellipse(400,350,100,100);
readln
end.