Задача

uses graph;
type Plata=record
           mes:string[10];
           sum:integer;
           end;
var
p:array[1..6] of Plata;
st:string;
GraphDriver,
GraphMode,x,y,r,i,a,b: integer;
s:longint;
Begin
writeln('Vvedite dannye o platezah za 6 mesyacev:');
for i:=1 to 6 do
 begin
  write('Mesyac: ');readln(p[i].mes);
  write('Summa: ');readln(p[i].sum);
 end;
GraphDriver:=detect;
InitGraph(GraphDriver, GraphMode,'');
{строим диаграмму}
s:=0;
for i:=1 to 6 do
s:=s+p[i].sum; {считаем сумму}
x:=getmaxX div 2+100;
y:=getmaxY div 2;
r:=150;
b:=round(360*(p[1].sum/s)); {первый сектор}
Setfillstyle(1,1);
PieSlice(x,y,0,b,r);
for i:=2 to 5 do {со 2 по 5}
 begin
   a:=round(360*(p[i].sum/s))+b;
   Setfillstyle(1,i);
   PieSlice(x,y,a,b,r);
   b:=a;
 end;
Setfillstyle(1,10);
PieSlice(x,y,b,360,r);{последний сектор-остаток суммы}
{рисуем легенду}
st:='';
for i:=1 to 6 do
 begin
  Setfillstyle(1,i);
  Bar(10,i*40,50,i*40+20);
  str(p[i].sum,st);
  st:=p[i].mes+'='+st;
  outtextXY(60,i*40+10,st);
 end;
readln;
CloseGraph;
End.