Даны 7 одномерных массивов a, b, c, d, e, f, g на 15, 13, 8, 11, 14, 10, 9 элементов соответственно. вывести имена массивов в порядке возрастания их минимальных элементов.заполнение массивов, поиск минимального элемента оформить в виде подпрограмм.для решения воспользоваться двумя массивами.

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию

function CreateArray(length: integer): array of integer;
begin
    var a := new integer[length];
    for var i := 0 to length - 1 do
        a[i] := Random(0, 100);
//    Println(a);
    Result := a;
end;

begin
    var arrays := new List<(char, array of integer)>();
    arrays.Add(('a', CreateArray(15)));
    arrays.Add(('b', CreateArray(13)));
    arrays.Add(('c', CreateArray(08)));
    arrays.Add(('d', CreateArray(11)));
    arrays.Add(('e', CreateArray(14)));
    arrays.Add(('f', CreateArray(10)));
    arrays.Add(('g', CreateArray(09)));
    
    foreach var a in arrays.OrderBy(a -> a.Item2.Min()) do
    begin
        Println(a.Item1, a.Item2.Min());
    end;
end.

program Round;

var

 C, R, S: Real;  // C-длина окружности, R-радиус, S-площадь круга

begin

 Write ('Введите длину окружности: ');  // вывод на экран сообщения

 ReadLn (C);   // ввод длины окружности

 if C < 0 then begin // проверка на отрицательное значение

   WriteLn ('Введено отрицательное значение');

   ReadLn;  // ждать нажатия Enter

   Exit;    // выход из программы

 end;

 R := C / 2/ Pi;  // расчет радиуса из длины окружности

 S := Pi * R * R; // расчет площади круга

 WriteLn ('Площадь круга = ', S);  // вывод результата

 ReadLn;                           // ждать нажатия Enter

end.

Объяснение: в комментариях к программе

Судя по названию функций, речь идет об операции деления по модулю (остаток от деления, она обозначается как %).
По условию задания не очевидно, что является делителем, а что делимым, поэтому в решении будут рассмотрены оба варианта.

Немного теории. Если a делимое и b делитель, то существуют единственные q и r, такие что:
a = b * q + r; где a, b, q, r  - целые числа, и b не равно 0, 0 <= r < |b|.
То есть, если мы подобрали такие q и r, что выполняется условие, то это значит что они единственные и верные.

Вначале будет рассмотрен вариант, где второй аргумент функции делится на первый аргумент функции.

mod(-7,87) = 87 % (-7) = 3 . Проверка: 87 = (-7)*q + r = (-7)*(-12) + 3.
mod(10,99) = 9. Проверка: 99 = 10 * 9 + 9.
mod(-7,-13) = 1. Проверка: -13 = (-7) * q + r = (-7)*2 + 1.

Далее рассматривается вариант, когда первый аргумент функции делится на второй аргумент.
a = b * q + r.

mod(-7,87) = -7 % 87 = 80. Проверка: -7 = 87 * (-1) + 80.
mod(10,99) = 10. Проверка: 10 = 99 * 0 + 10.
mod(-7,-13)=-7 % - 13 = 6. Проверка: -7 = -13 * 1 + 6.

П.С. На калькуляторы в Интернете не ориентируйтесь, они не корректно обрабатывают такие выражения.