Контрольная работа по графике в Паскале

SetLineStyle(0,0,3);

     Circle(250,175,25);

 Ellipse(250,325,0,360,25,125);

     Line(250,150,200,75);

     Line(250,150,300,75);

     Arc(175,75,0,270,25);

     Arc(325,75,270,180,25);

     Line(275,275,300,175);

     Line(300,175,375,125);

     Line(375,125,450,175);

     Line(450,175,425,275);

     Line(425,275,275,300);

     Line(325,250,350,175);

     Line(350,175,400,175);

     Line(400,175,400,225);

     Line(400,225,325,250);

     Line(275,300,400,325);

     Line(400,325,425,400);

     Line(425,400,350,450);

     Line(350,450,275,350);

     Line(325,350,375,350);

     Line(375,350,400,400);

     Line(400,400,350,400);

     Line(350,400,325,350);

     Line(225,275,200,175);

     Line(200,175,125,125);

     Line(125,125,50,175);

     Line(50,175,75,275);

Line(75,275,225,300);

     Line(175,250,150,175);

     Line(150,175,100,175);

     Line(100,175,100,225);

     Line(100,225,175,250);

Line(225,300,100,325);

     Line(100,325,75,400);

     Line(75,400,150,450);

     Line(150,450,225,350);

     Line(175,350,125,350);

     Line(125,350,100,400);

     Line(100,400,150,400);

Line(150,400,175,350);

     setfillstyle(7,2);

     floodfill(200,275,15);

     floodfill(300,275,15);

     setfillstyle(9,10);

floodfill(200,325,15);

     floodfill(300,325,15);

     setfillstyle(9,6);

     floodfill(250,175,15);

     floodfill(250,300,15);

setfillstyle(5,12);

     floodfill(125,200,15);

     floodfill(350,375,15);

     setfillstyle(4,12);

     floodfill(375,200,15);

     floodfill(125,375,15);