Опишите множества М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('*');  writelnend.Тестовое решение:Результат: *12*******