1)      Требуется создать двумерный массив целых чисел размером MxN, где MиNвводятся пользователем, но не превышают 15. Заполнить массив числами равными сумме индексов элемента (например элемент[3,4] := 7 ).Полученные значения ...

Насколько я понял, множество - это просто все эти числа, только без повторений. Заведем  массив boolen, где будем отмечать, есть ли данное число во множестве. var   a : array [1..15, 1..15] of integer;   b : array [1..30] of boolean;   i, j, n, m : integer; begin   read (n, m);   for i := 1 to 30 do b[i] := false; //Зануление начальных значений   for i := 1 to n do     for j := 1 to m do       a[i, j] := i +j; //Заполнение массива   for i := 1 to n do     for j := 1 to m do       b[a[i, j]] := true; //Формирование множества   for i := 1 to n do   begin     for j := 1 to m do       write (a[i, j], '  ');     writeln;   end;   for i := 2 to 30 do     if b[i] then write (i, '  '); end.