Все во вложенном файле Python 3

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

procedure Carthesian<T1, T2>(P: HashSet<T1>; Q: HashSet<T2>);

begin

 p.Cartesian(Q).Println;

 Q.Cartesian(P).Print

end;

begin

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

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

 Readln;  // сброс буфера ввода для корректного ввода строки

 var Q := ReadlnString('Введите строку из символов множества:')

     .ToHashSet;

 Carthesian(P, Q)

end.