Опишите множества м1(1,2,3) и м2(1,4,2,5). получите результирующее множество м3 = м1*м2. определите, имеются ли в м3 элементы 1 и 2 ? язык паскаль.

Var
  M1, M2, M3 :set of 0..9;
  i:integer;
begin
  M1 := [1, 2, 3];
  M2 := [1, 4, 2, 5];
  M3 := M1 * M2;
  write('Результат: ');
  for i:=0 to 9 do
    if i in M3 then write(i)
    else write('*');
  writeln
end.

Тестовое решение:

Результат: *12