===== PascalABC.NET =====
begin
var m := ReadInteger('Мощность множества X:');
var x := ReadArrInteger('Введите числовые элементы множества X:', m);
Readln;
var y := ReadString('Введите символьные элементы множества Y:')
.Where(c -> c <> ' ').ToArray;
Print('X:');
foreach var a in X do
Write(a:5);
Writeln;
Print('Y:');
foreach var a in X do
Write(y[a mod y.Length]:5)
end.