Составь алгоритм, чтобы поменять местами спортивные принадлежности.Расположи теннсную ракетку в первой, мяч во второй, коньки в третьей ячейке.В каждую ячейку можно разместить только один предмет и на каждом шаге алгоритма можно перемещать только один предмет.

===== PascalABC.NET =====

procedure MyCompare<T>(P, Q: HashSet<T>);

begin

 if P.SetEquals(Q) then

   Print('Множества эквивалентны')

 else if P.IsSubsetOf(Q) then

   Print('Первое множенство является подмножеством второго')

 else if P.IsSupersetOf(Q) then

   Print('Второе множенство является подмножеством первого')

 else

   Print('Проверка множеств завершена')

end;

begin

 var n := ReadInteger('Мощность первого множества:');

 var P := ReadSeqInteger('Введите элементы множества:', n).ToHashSet;

 n := ReadInteger('Мощность второго множества:');

 var Q := ReadSeqInteger('Введите элементы множества:', n).ToHashSet;

 MyCompare(P, Q)

end.