Помогите пожалуйста сделать такую штуку как на фото, только с русским текстом. Секторы в паскале я могу нарисовать, но как заполнить их текстом? Возможно это можно сделать проще на других языках, просто с простыми модулями рисования я знаю только Pascal
.
uses crt, GraphABC;
const A: array[1..33] of integer = (1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1);
var u, u0, S, i: integer;
begin
SetWindowSize(800, 800);
circle(400, 400, 50);
S:=0;
u0:=0;
for i:=1 to 33 do
S:=S+A[i];
for i:=1 to 33 do
begin
SetBrushColor(rgb(255,255,255));
u:=u0+round(A[i]*360/S);
Pie(400,400,390,u0,u);
u0:=u;
end;
drawcircle(400, 400, 330);
circle(400, 400, 270);
end.