Укажите какое логическое выражение равно сильно выражению ​

Const   n = 50; {максимальное количество чисел в последовательности}   t = -77; {число-ограничитель, означающее конец ввода} type   ta = array[1..n] of integer; var   a: ta; {массив членов последовательности}   az: ta; {массив, содержащий номера нулей в последовательности}   kz: integer; {количество членов в массиве az}    i, iz, p, n1, n2: integer;   flag: boolean; begin   {вводим числа и сразу же отслеживаем номера нулей в последовательности}   writeln('вводите последовательность чисел, окончание ввода по -77');   i : = 0; iz : = 0;   repeat       read(p);       if p < > t then begin           i : = i + 1;           a[i] : = p;           if p = 0 then begin               iz : = iz + 1;               az[iz] : = i;           end       end   until p = t;   kz : = iz;   writeln('вывод последовательностей');   {1. до первого встреченного нуля}   for i : = 1 to az[1] - 1 do write(a[i], ' ');   writeln;   {2. остальные промежутки}    for iz : = 1 to kz do   begin       for i : = az[iz] + 1 to az[iz + 1] - 1 do write(a[i], ' ');       writeln;   end end. тестовое решение: вводите последовательность чисел, окончание ввода по -77 1 2 3 0 5 6 7 0 0 10 11 12 13 0 15 16 17 18 19 20 -77 вывод последовательностей 1 2 3 5 6 7 10 11 12 13

Program primer1; var   a: array[1..100] of integer;   n, i, max, min: integer; begin   randomize;   write('введите число элементов от 1 до 100: ');   readln(n);   max : = -32768;   min : = 32767;   writeln('исходный ряд чисел');   for i : = 1 to n do   begin       a[i] : = random(101) - 50;       write(a[i], ' ');       if max < a[i] then max : = a[i]       else if min > a[i] then min : = a[i];   end;   writeln(#13#10, 'максимум: ', max, ', минимум: ', min); end. тестовое решение: введите число элементов от 1 до 100: 24 исходный ряд чисел 40 -14 -12 13 44 -48 -19 11 -50 -2 -49 -6 45 49 -44 4 -7 -50 -31 18 37 44 30 -2 максимум: 49, минимум: -50