Составить 2 слова из букв б а т т е л а к и т и н о х о к

Таблетка и

Const   n = 16; var   a, y: array[1..n] of integer;   i, m: integer;   s: longint; begin   write('введите число элементов в массивах m< 17: ');   readln(m);   if not (m in [1..16]) then m : = 16; { защита от дурака }   randomize;   //write('элементы массива: ');   s : = 0;   for i : = 1 to m do   begin       a[i] : = random(51) - 25;       y[i] : = random(41) - 20;       s : = s + a[i] * y[m - i + 1]       //write(x[i]: 5)   end;   if s < 24 then writeln('искомая сумма равна ', s)   else begin       write('массив a: ');       for i : = 1 to m do write(a[i]: 4);       write(#13#10, 'массив y: ');       for i : = 1 to m do write(y[i]: 4);       writeln   end end. тестовое решение: введите число элементов в массивах m< 17: 0 массив a:       6  25    9  -4  11  10 -18  11  18 -11 -24    1  13  -3 -10    0 массив y:       1    0    6    9  14 -14    3  -6 -17 -19  11  16  11 -20    5  19 введите число элементов в массивах m< 17: 10 массив a:       1    2    7    5    9 -16 -23  -4    5  -2 массив y:     -3  -5 -12 -20    2    1  -3  18  19 -17 введите число элементов в массивах m< 17: 10 искомая сумма равна 1

A    b     c     avb       (avb)vc       a& ((avb)vc) 0     0     0       0             0                   00     0     1       0             1                   00     1     0       1             1                   00     1     1       1             1                     01     0     0       1             1                   11     0     1       1             1                   11     1     0       1             1                   11     1     1       1             1                   1