Голубая. Потому что тот ничего не исполняет. Машина (забыла как называется) исполняет перевозку. Шкаф исполняет "хранение".
Пожарный или кто там... Исполняет (если пожарник), то исполняет роль "человека"
Обьединять,разделять,добавлять ячейки,убавлять.
begin
var a := SeqGen(15, i -> i + 1).ToArray; a.Println;
{если нужно вводить вручную, закомментируйте вторую строку
и раскомментируйте пятую}
// var a := ReadArrInteger(15);
Swap(a[0], a[4]);
Swap(a[9], a[14]);
a.Println;
end.