for i=1 to 5 do
begin
write(`a[`,I,`]=`);
readln(a);
end;
b:=a[1];
a[1]:=a[5];
a[5]:=b;
В одномерном массиве
1)Удаляет последний элемент
2)Сортирует элементы по возрастанию
3)Меняет местами первый и последние элементы
4)Сортирует элементы по убыванию
5)Удаляет 1 и 5 элементы