Элементами множества А являются натуральные числа. Известно, что выражение
¬(x ∈ {2, 4, 6, 8, 10, 12}) V (¬(x ∈ {3, 6, 9, 12, 15}) →(x ∈ A))
истинно (т. е. принимает значение 1) при любом значении переменной х.
Определите наименьшее возможное значение произведения элементов множества A.

На  моем любимом бейсике
Dim A() As Integer, i As Integer, k As Integer, N As Integer
Randomize
Print "N = "; : Input N
ReDim A(N, N)
For i = 1 To N
For k = 1 To N
A(i, k) = Int(Rnd(1)*10) + 1 ' Заполняем матрицу случайными числами от 1 до 10
Print A(i, k) & CHR(9); ' Выводим начальную матрицу через табуляцию
Next k
Print ' Переход на следующую строку вывода
Next i
Print : Print ' Опускаемся на 2 строки
For i = 1 To N
For k = 1 To N
If k >= i Then A(i, k) = 1 ' Заполняем единицами нужную область
Rem У области выше главной диагонали номер столбца больше строки
Print A(i, k) & CHR(9); ' Выводим конечную матрицу через табуляцию 
Next k
Print ' Переход на следующую строку вывода
Next i
End

Const   n = 50; // количество чиселvar   k: array [1..n] of integer;   i, j, n1, n2, minr, a, b: integer; begin   writeln(n, ' ', ': d');   a : = random(1000);   b : = random(1000);   minr : = 10000;   for i : = 1 to n do       k[i] : = a + random(b);   for i : = 1 to n do       for j : = 1 to n do           if ((abs(k[i] - k[j])) < minr) and (k[i] < > k[j]) then           begin               minr : = abs(k[i] - k[j]);               n1 : = i;               n2 : = j;           end;   writeln(n1, ' ', n2); end.