1. придумайте сами пример объектов, информацию о которых удобно представить в виде многоуровнего списка.
2. создайте соответствующий многоуровневый список

Const
  n=6; //размерность массива

Var
 ar:array[1..n] of integer;
 i,min,b:integer;
begin
 min:=2147483647; //верхняя граница типа integer
 b:=0; //проверка на наличие минимума - ложь
 for i:=1 to n do
  begin
   readln(ar[i]);
   if (i mod 2=0) and (ar[i]>0) and (ar[i]<min) then {если индекс чётный, элемент положительный и меньше минимума}
    begin
     min:=ar[i]; //заменяем минимум элементом
     b:=1; //проверка на наличие минимума - правда
    end;
  end;
 if b=0 then writeln('Нет') else writeln(min); {если проверка-ложь, то нет минимума, иначе выводим минимум}
end.

Const
    n = 100;

var
    i, k_max, max, neg_max: integer;
    a: array[1..n] of integer;

begin
    for i := 1 to n do
    begin
        a[i] := random(100) - 50;
        write(a[i], ' ');
    end;
    writeln();
    
    max := a[1];
    k_max := 1;
    neg_max := 0;
    for i := 1 to n do
    begin
        if a[i] > max then begin
            max := a[i];
            k_max := 1;
        end;
        if a[i] = max then k_max := k_max + 1;
        if (a[i] < 0) and (abs(a[i]) > abs(neg_max)) then
            neg_max := a[i];
    end;
    
    writeln('Max: ', max, ' k=', k_max);
    writeln('Positive: ', max);
    writeln('Negative: ', neg_max);
end.