Расскажите как делать задания
Выполнить операции с таблицей базы данных:
1)сортировку списка по двум ключам;
2)фильтрацию списка по какому-либо критерию с Автофильтра и Пользовательского автофильтра;
3)фильтрацию списка с Расширенного фильтра с
использованием логических операторов И и ИЛИ.

Не знаю, что за автоматизация, но запрос на выборку выглядит так:
SELECT * FROM my_table
или же запрос на выборку с условием
SELECT * FROM my_table WHERE name="kek2255"
при этом еще можно использовать операторы AND(И)  и OR(ИЛИ)
SELECT * FROM my_table WHERE name="Иван" AND first_name="Иванов"
SELECT * FROM my_table WHERE name="Иван" OR name="Дмитрий"
и понятное дело их можно комбинировать
SELECT * FROM my_table WHERE (name="Иван" AND first_name="Иванов") OR (name="Дмитрий" AND first_name="Дмитриев")
Можно выполнять запрос из нескольких таболиц
SELECT t1.*, t2.* FROM my_table AS t1, my_table2 AS t2
WHERE t1.id = t2.id_ref


Здесь:
SELECT - Сам оператор выборки
* - это поля выборки, в данном случае все поля(*) -звездочка это значит все поля, но можно просто перечислить id, name, first_name и т.д. При выборе из 2-х и более таблиц указываются префиксы таблицы - это может быть как полное название таблицы(my_table.id) или псевдоним, которое мы указали (FROM my_table AS t1) t1 - будет псевдонимом и выбррка полей будет таким (t1.id, t1.name ...)
FROM - Обязательное ключевое слово(оператор) означает ИЗ(from) 
WHERE - Не обязательный оператор условия (ГДЕ)
Если перевести запрос на русский язык, то будет как в 1С:)
ВЫБРАТЬ * ИЗ моя_таблица ГДЕ Имя = "Иван"
Надеюсь

//Pascal

//1)
var
  A: array [1..8] of integer;
  i: byte;
  sum: integer;
  Arifm: real;
begin
  writeln('Заполнение массива.');
  sum := 0;
  for i := 1 to 8 do
  begin
    write('A[',i,'] = ');
    readln(A[i]);
    sum := sum + A[i];
  end;
  Arifm := sum/8;
  writeln('Среднее арифметическое всех элементов = ', Arifm);
  writeln;
  writeln('Элементы меньше среднего арифметического.');
  for i := 1 to 8 do
    if A[i] < Arifm then
      write(A[i]:4);
  writeln; readln;       
end. 

//2)
var
  A: array [1..8] of integer;
  i: byte;
  sum: integer;
  Arifm: real;
begin
  writeln('Заполнение массива.');
  sum := 0;
  for i := 1 to 8 do
  begin
    write('A[',i,'] = ');
    readln(A[i]);
    if i mod 2 <> 0 then
      sum := sum + A[i];
  end;
  Arifm := sum/4;
  writeln('Среднее арифметическое элементов с нечетн. индексами = ', Arifm);
  readln;
end.