С ПОДРОБНЫМ РЕШЕНИЕМ Обозначим через ДЕЛ(n, m) утверждение «натуральное число n делится без остатка на натуральное число m».

Для какого наибольшего натурального числа А формула

(¬ДЕЛ(x, А) ∧ДЕЛ(x, 15)) → (¬ДЕЛ(x, 18) ∨ ¬ДЕЛ(x, 15))

тождественно истинна (то есть принимает значение 1 при любом натуральном значении переменной х)?

Python 3.7.2

some_list = [int(input()) for i in range(int(input('list range: ')))]

EvenSumm = 0 #Сумма чётных

#Ищем сумму чётных

EvenSumm = sum(list(filter(lambda x: x % 2 == 0, some_list)))

#Среднее арифметическое закачивающихся на 5

endswithfive = list(filter(lambda x: x % 10 == 5, some_list))

endswithfive_average = sum(endswithfive) / len(endswithfive)

#Поиск чего то, равного х  

something_equal_x = some_list[some_list.index(int(input('x = ')))]

#Маскимум и его индекс

max_ind = some_list.index(max(some_list))

max_and_his_index = (max(some_list), max_ind)

print(f'''

Answers:

a) Even Summ: {EvenSumm}

b) Average of nums, ends with '5': {endswithfive_average}

c) something, equal x: {something_equal_x}, placed under index: {some_list.index(something_equal_x)}

d) maximum and his index: {max_and_his_index}

   ''')

P.S - Скопированый код может не работать. Это нормально, сайт портит отступы. Код протестирован, работает. Приложен скриншот программы и вывода для придуманных на ходу входных данных

1) файл паскаля приложен.
2) код на c#
        static void Main(string[] args)        {            int a, b;            a = Convert.ToInt32(Console.ReadLine());            b = Convert.ToInt32(Console.ReadLine());            if (a > 2)            {                Console.WriteLine(a / 2);                Console.WriteLine(b - 1);            }        }
3) Код на vb
dim a as integer = 0
dim b as integer = 0
a = cint(console.readline())
b = cint(console.readline())
if a > 2 then
console.writeline( a / 2)
console.writeline(b - 1)
end if