Який тип захисту авторського права використано, якщо твір зашифровано так, що доступ до нього можливий з використанням ключа до шрифту?

// 1 const   n = 100; var   a: array[1..n] of integer;   i, s: integer; begin   for i : = 1 to 15 do   begin       write('a[', i, '] = '); readln(a[i]);       if i mod 3 = 0 then s : = s + a[i];   end;   writeln('сумма элементов, индексы которых кратны 3 = ', s); end. тестовое решение: число элементов : 10 a[1] = 2 a[2] = 5 a[3] = 1 a[4] = 5 a[5] = 6 a[6] = 3 a[7] = 5 a[8] = 6 a[9] = 1 a[10] = 8 сумма элементов, индексы которых кратны 3 = 5 // 2 const   n = 100; var   a: array[1..n] of integer;   i: integer; begin   for i : = 1 to 15 do   begin       a[i] : = random(100); write(a[i]: 4);   end;   writeln;   for i : = 1 to 15 do   begin       if i mod 2 = 0 then a[i] : = a[i] * 2;       write(a[i]: 4);   end; end. тестовое решение:   35  98  67  94  63  18  26  17    3    5    0  77  47  11  33   35 196  67 188  63  36  26  34    3  10    0 154  47  22  33 // 3 const   m = 100; var   a: array[1..m] of integer;   i, n, k, tmp: integer; begin   write('число элементов : ');   readln(n);   for i : = 1 to n do   begin       write('a[', i, '] = '); readln(a[i]);   end;   repeat       write('введите к (k< > 1 и k< > n)');       readln(k);       if (k = 1) or (k = n) then writeln('ошибка, повторите ввод');   until (k < > 1) and (k < > n);   for i : = 1 to n do write(a[i]: 4); writeln;   tmp : = a[k - 1]; a[k - 1] : = a[k + 1]; a[k + 1] : = tmp;   for i : = 1 to n do write(a[i]: 4); end. тестовое решение: число элементов : 6 a[1] = 2 a[2] = 7 a[3] = 3 a[4] = 8 a[5] = 9 a[6] = 1 введите к (k< > 1 и k< > n)4     2    7    3    8    9    1     2    7    9    8    3    1