нарисовать в паскале...

uses graph;
{штриховка с левым наклоном}
const shtr_p:fillpatterntype=($80,$40,$20,$10,$08,$04,$02,$01);
var x,y:integer;
begin
x:=0;
initgraph(x,y,'');
x:=getmaxX div 2;
y:=getmaxY div 2;
setbkcolor(15);
setcolor(8);
setlinestyle(0,0,3);
{прямоугольники}
rectangle(x-210,y-80,x+210,y+80);
rectangle(x-90,y-35,x+90,y+35);
{диагонали}
line(x-90,y+35,x+90,y-35);
line(x-90,y-35,x+90,y+35);
{штриховка треугольников}
setfillstyle(3,8);
floodfill(x-5,y,8);
floodfill(x+5,y,8);
{левй сектор}
circle(x-210,y,80);{окружность}
setfillstyle(0,0);{закрасим левую часть}
bar(x-291,y-80,x-212,y+81);{прямоугольником}
{правый сектор}
sector(x+210,y,90,270,80,80);
setfillpattern(shtr_p,8);
floodfill(x+205,y,8);
{подписи}
{низ}
setlinestyle(0,0,1);
line(x-90,y+80,x-90,y+100);
line(x+90,y+80,x+90,y+100);
line(x-90,y+97,x+90,y+97);
outtextXY(x-15,y+87,'180');
line(x-90,y+97,x-80,y+100);
line(x-90,y+97,x-80,y+94);
line(x+90,y+97,x+80,y+100);
line(x+90,y+97,x+80,y+94);
 
line(x-210,y+80,x-210,y+120);
line(x+210,y+80,x+210,y+120);
line(x-210,y+117,x+210,y+117);
outtextXY(x-15,y+107,'420');
line(x-210,y+117,x-200,y+120);
line(x-210,y+117,x-200,y+114);
line(x+210,y+117,x+200,y+120);
line(x+210,y+117,x+200,y+114);
{справа}
line(x+210,y+80,x+230,y+80);
line(x+210,y-80,x+230,y-80);
line(x+230,y+80,x+230,y-80);
settextstyle(0,1,0);
outtextXY(x+225,y-15,'160');
line(x+230,y+80,x+233,y+70);
line(x+230,y+80,x+227,y+70);
line(x+230,y-80,x+233,y-70);
line(x+230,y-80,x+227,y-70);
{середина}
line(x,y+80,x,y-80);
line(x,y+35,x-3,y+40);
line(x,y+35,x+3,y+40);
line(x,y-35,x-3,y-40);
line(x,y-35,x+3,y-40);
settextstyle(0,1,0);
outtextXY(x-3,y+47,'70');
readln
end.