Нарисовать круговую диаграмму

[Proskurina]

Нарисовать круговую диаграмму по результатам сдачи экзамена по матану.
рисовать в abcpaskal,
дано 12 человек:
4-отличника;
3-хорошиста;
5-троишников;

[Proskurina]

помогите плизз

[Sciv]

Да нате Вам

uses GraphABC;

const marks: array [1..3] of byte=(5,3,4);
      colors: array [1..3] of integer=(clRed,clYellow,clGreen);
      CenterX=300;
      CenterY=300;
      Radius=200;

var i:integer;
    grad:real;
    proc,oldproc: real;
begin
  grad:=360/12;
  oldproc:=0;
  For i:=1 to 3 do begin
    SetBrushColor(colors[i]);
    proc:=grad*marks[i];
    Pie(CenterX,CenterY,Radius,oldproc,oldproc+proc);
    oldproc:=proc+oldproc;
  end;
end.