(40 ) напишите развернутый ответ к :
определите наименьшее натуральное число a, такое что выражение

( (x & 20 ≠ 0) \/ (x & 55 ≠ 0)) -> ((x & 7 = 0) -> (x & a ≠ 0))
тождественно истинно (то есть принимает значение 1 при любом натуральном значении переменной x)?

Const
  n = 3;

var
  m: array[1..n] of integer;
  i, mn, mx: integer;

begin
  Write('Введите через пробел три целых числа: ');
  i := 1;
  repeat
    Read(m[i]);
    i := i + 1
  until i > n;
  mn := m[1];
  mx := mn;
  i := 2;
  repeat
    if mx < m[i] then mx := m[i]
    else
    if mn > m[i] then mn := m[i];
    i := i + 1
  until i > n;
  Writeln('Разность наибольшего с наименьшим равна ', mx - mn)
end.

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

Введите через пробел три целых числа: 7 9 3
Разность наибольшего с наименьшим равна 6

Сначала спрашивайте у пользователя число n, потом заполняйте массив (с проверкой на [-100..100]), потом в цикле проверяйте каждый элемент массива на кратность 5. Параллельно с проверкой на кратность (в том же цикле) кидайте первое кратное число в переменную max, и сравнивайте с это переменной другие числа, кратные 5. Если больше - перезаписываете значение max

Цикл: (counter - счетчик, n - колво чисел в массиве)

max := 0;
for counter = 1 To n Do
if (Massive[counter] mod 5) = 0 then
        if Massive[counter] > max then max := Massive[counter];

В конце выводите max