Измените, чтобы значения размеров занимаемого поля вводились с клавиатуры. Скомпилируйте. Сохраните. program Diagram; uses crt, GraphABC; const A: array[1..5] of integer = (47,63,22,27,12); B: array[1..5] of string = (Рожь,Пшеница,Овес,Ячмень,Гречиха); var u, u0, S, i: integer; begin SetWindowSize(600, 600); S:=0; u0:=0; for i:=1 to 5 do S:=S+A[i]; //вычисление суммарной площади for i:=1 to 5 do begin Writeln(B[i], ,A[i], га ,round(100*A[i]/S), %); SetBrushColor(rgb(random(255),random(255),random(255))); u:=u0+round(A[i]*360/S); //вычисление конечного угла сектора Pie(220,240,140,u0,u); //рисование сектора u0:=u; //новое значение начального угла следующего сектора end; end.

Ввод массива с клавиатуры выглядит вот так:
var
razmer, i2: Integer
........

WriteLn (‘Введите размер массива’);
ReadLn (razmer);
For i2:=1 to razmer do
Begin
WriteLn (i2,’ ’);
ReadLn (A[i2]);
Массив В вводится так же...