Как нарисовать свиток - Turbo Pascal - Ответ 8806932

uses graph;
var x,y:integer;
begin
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
setbkcolor(15);
setlinestyle(0,0,3);
setcolor(7);
arc(x-100,y-175,270,180,25);
arc(x-100,y-162,90,270,12);
line(x-100,y-174,x-75,y-174);
setfillstyle(1,7);
floodfill(x-100,y-155,7);
arc(x-150,y+175,90,360,25);
arc(x-150,y+163,270,90,12);
line(x-150,y+175,x-125,y+175);
floodfill(x-150,y+180,7);
setcolor(8);
line(x-100,y-200,x+200,y-200);
line(x-100,y-150,x+200,y-150);
arc(x+200,y-175,270,90,25);
arc(x-150,y+175,90,360,25);
arc(x-150,y+163,270,90,12);
line(x-150,y+175,x-150,y+175);
arc(x-100,y-175,270,180,25);
arc(x-100,y-162,90,270,12);
line(x-100,y-174,x-75,y-174);
line(x-150,y+200,x+145,y+200);
arc(x+145,y+175,270,360,25);
line(x+170,y+175,x+170,y-150);
line(x-125,y+175,x-125,y-175);
line(x-150,y+175,x-125,y+175);
line(x-150,y+150,x-125,y+150);
readln
end.