Запишите, какой тип диаграммы необходимо выбрать для отображения состава лекарственного сбора трав, если известно, какую часть сбора (в %) составляет каждая из трав. *

Будут вопросы - задавайте.

type a = array[0..999] of Integer;
var B, num: a; var N, k: integer; 
 
procedure SimpleNumber(B: a);
begin
    for var i := 0 to N-1 do begin
        for var j := 2 to 9 do begin
            if B[i] mod num[j] <> 0 then
                k += 1;
        end;
        if k = 8 then begin
             write('Есть простое число');
            break;
        end
        else if (k <> 8) and (i = N-1) then 
           write('Нет простых чисел');
        k := 0;
    end;
end;

begin
    for var i := 2 to 9 do begin
        num[i] := i;
    end;
    read(N);
    for var i := 0 to N-1 do 
        read(B[i]);
    SimpleNumber(B);
end.

Uses crt;
type TDMassiv = record
intMassiv : array of integer // Создали тип "динамический массив"
end;
var N, i, k : integer;
A : TDMassiv // Создали переменную A нового типа TDMassiv
Begin
clrscr;
randomize;
write('Vvedite kol-vo chisel');
readln(N);
SetLength(A, N) // Определяем, что массив А будет размера N элементов.
for i=1 to N do
begin
A[i] := random(10001); // Заполняем массив случайными числами [0..10000]
end;
k := 0; // k - это счетчик трехзначных чисел
for i=1 to N do
begin
if (A[i] >= 100) AND (A[i] <= 999) then k := k+1; // Считаем трехзначные числа
end;
if k := 0 then writeln ('HET') else writeln('Trehznachnyh chisel = ', k);
// Выводим посчитанное количество чисел на экран
END.