Упростить логическую формулу(A\/B)/\(A\/C)/\(A\/Ā)/\= B​

Всё напишу в объяснении.

Объяснение:

1) Program Ex1;

var

 n, a, i, sum : integer;

begin

 sum := 0; // обнуляем счетчик суммирования

 read(n);  // вводим кол-во чисел

 for i := 0 to n do

   begin

   read(a); // считываем эти числа

   if (a mod 5 = 0) then sum := sum + a; // если число кратно 5, то добавляем его к сумме

   end;

 writeln(sum); // выводим сумму.

end.

2) Program Ex2;

var

 n, a, i, min: integer;

begin

 min := 30000;

 read(n);  // вводим кол-во чисел

 for i := 0 to n do

   begin

   read(a); // считываем эти числа

   if ((a mod 10 = 4) and (a < min)) then min := a; // ищем минимум

   end;

 writeln(min); // выводим минимум

end.