Х– наибольшее число, кратное 14 и являющееся произведением двух элементов последовательности с различными номерами. напишите эффективную, в том числе по используемой памяти, программу), находящую число x для последовательности натуральных чисел, значение каждого элемента которой не превосходит 1000. программа должна напечатать найденное число, если оно существует для заданной последовательности, или ноль в противном случае. на вход программе в первой строке подаётся количество чисел n. в каждой из последующих n строк записано одно натуральное число, не превышающее 1000.

//PascalABC.Net 3.1 сборка 1200

begin
    var a := ArrRandom(25, 1, 100);    
    Sort(a);
    PrintLn(a);
    var max14 := 0;
    
    for var i := High(a) downto Low(a) do
        for var j := High(a) downto Low(a) do
            if (i <> j) and (a[i] * a[j] > max14) and (a[i] * a[j] mod 14 = 0) then
                max14 := a[i] * a[j];
    
    PrintLn(max14);
end.

Python 3.5:
a, b, c, d = list(map(float, input().split()))
print(False if (c == d) else ((a + b + c + d)/(c - d)).is_integer())

Сначала вводим 4 вещественных числа a, b, c, d.
Если c = d, то ответ False - частное будет нехорошим, поскольку в знаменателе будет 0. Если c не равно d, проверяем при встроенной функции is_integer(), что (a + b + c + d)/(c - d) - целое число. 

Если a, b, c, d - целые, то float в решении можно заменить на int, а проверку при на проверку, что остаток от деления равен нулю, (a + b + c + d) % (c - d) == 0.

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrReal('Введите 4 числа:',4);
  if Frac(a.Sum/(a[3]-a[2]))=0 then Writeln('Целый результат')
  else Writeln('Нецелый результат')
end.

Примеры
Введите 4 числа: 7.2 1.8 25.5 5.5
Целый результат

Введите 4 числа: 36 18.6 12 5
Нецелый результат

Объяснения:
Первый (после begin) оператор объявляет массив из четырех вещественных элементов и заполняет его вводимыми с клавиатуры данными.
Второй делает остальное: вычисляет результат, проверяет, целочисленный ли он и выводит соответствующее сообщение на монитор.