.
P.s. Откройте фото, там 7 выражений

Var   a: array [1..255] of integer;   n, i, j, k, min, max: integer; begin   //ввод количества элементов в массиве   write('введите четное количество элементов: ');   readln(n);     //ввод двух чисел для диапазона случайных чисел   write('введите диапазон случайных чисел: ');   readln(min, max);     //инициализация датчика случайных чисел.   //(в pascalabc.net необязательно)   randomize;     //заполнение массива   for i : = 1 to n do   begin       a[i] : = random(max-min+1)+min;       write(a[i]: 4);   end;   writeln;     //сортировка первой половины по убыванию   for i : = 1 to ((n div 2)-1) do       for j : = 1 to (n div 2)-i do           if a[j] > a[j+1] then           begin               k : = a[j];               a[j] : = a[j+1];               a[j+1] : = k;             end;               //сортировка второй половины по убыванию   for i: =(n div 2) to n-1 do       for j: =i+1 to n do           if a[i]< a[j] then           begin               k: =a[i];               a[i]: =a[j];               a[j]: =k;           end;   //вывод массива   for i : = 1 to n do write(a[i]: 4);   writeln;   readln; end.