---

uses GraphABC;

var a: array[1..10] of integer;
  n, S, u0, u1: integer;

begin
  write('Количество n =');
  readln(n);
  writeln(n);
  writeln('Элементы массива');
  for var i := 1 to n do
    read(a[i]);
  for var i := 1 to n do
    write(a[i], ' ');
  S := 0;
  for var i := 1 to n do
    S := S + a[i];
  u0 := 0;
  for var i := 1 to n do
  begin
    u1 := u0 + trunc(a[i] * 360 / S);
    SetBrushColor(clRandom);
    Pie(150, 150, 100, u0, u1);
    u0 := u1;
  end;
end.