begin
  var x: array [1..3] of set of integer;
  for var i := 1 to 3 do
    for var j := 1 to 10 do x[1] += [ReadLnInteger('Введите ' + j + '-ый элемент ' + i + '-го множества:')];
  WriteLn('Исходные множества:');
  for var i := 1 to 3 do WriteLn('X[', i, '] = ', x[i]);
  WriteLn('Результат: ', (x[1] * x[2]) + (x[2] - x[3]));
end.