Какую функцию выполняет Default?​

Объясняю.За ответ отметить
1)сначала подставим значения в выражение:
НЕ(3больше2) и НЕ(3=5)
2)запишем значения выражения:
0 и 1
3)И-это связка &,в алгебре логики(информатика,9 класс) это у нас знак конъюнкции.
Определение:конъюнкция-логическое умножение.
Т.е. если все входящие переменные истинны(равны 1,ноль это ложь,а 1-истина),то и конъюнкция истинна.
Из выражения "не(X>Z)и не(X=Y), если X=3, Y=5, Z=2" мы имеем:
0 & 1.
0 не равен единице,из этого следует,что здесь конъюнкция ложна.
Кроме конъюнкции действий нет,а это значит,что она-это всё выражение.Если конъюнкция здесь ложная,то и выражение ложное,соотв.оно имеет значение 0.
ответ:0

// написанное после двух косых черт - это пояснения. из программы удалить
program massiv_summa;
var A: array[1..100,1..100] of integer;
//предполагаю, что 1<=N<=100 иначе надо измнить параметры массива
var N, Sum: integer;
var i, j: byte;
begin
writeln ('введите N');
readln (N); //ввод значения N c клавиатуры
Sum:=0; // Определяем начальное значение суммы чисел массива, кратных 3  
  for i:=1 to N do begin // внешний цикл перебирает строки массива 
    for j:=1 to N do begin //внутренний цикл перебирает ячейки в каждой строке 
      A[i,j]:=random(-10,10); //элементу массива присваивается случайное значение
      if (A[i,j] mod 3)=0 // если остаток от деления числа на 3 равен нулю (кратно 3)
          then Sum:=Sum+A[i,j]; //если кратно 3, то прибавляем его к сумме 
          //если не кратно 3, то ничего не делаем. т.е. оператор else отсутствует                   //Для проверки можно вывести весь массив, например:       
          write (A[i,j]:4); 
    end; 
    writeln //для вывода новой строки массива с новой строки
  end;
writeln ('Сумма чисел кратных 3 равна ',Sum);
end.