Какие юридические документы составляют нормативно -правовую основу мер по защите авторских прав?

По  моему  не  в  информатике  надо  такое  спрашивать,  и  я  лишь  с  гк  рф  в  четвертой  части  сталкивался  с  авторскими  правами  в  своей  жизни

Program z; var       i : integer; begin       writeln('введите число'); readln(i);       if i mod 2 = 0             then                   writeln('число чётное')             else                   writeln('число не чётное');       readln; end. program z; var       i : integer; begin       writeln('введите число'); readln(i);       if i mod 3 = 0             then                   writeln('число делится на 3')             else                   writeln('число не делится на 3');       readln; end. program z; var       i: array[1..6] of byte;       x: byte; begin       for x: =1 to 6 do                     begin                   writeln('введите ', x,' цифру из 6 ');                   read(i[x]);             end;       if (i[1]+i[2]) = (i[4]+i[5]+i[6])             then                   writeln('билет счастливый')             else                   writeln('билет не счастливый');       readln; end.               program z; var       i : integer; begin       writeln('введите число'); readln(i);       if i mod 6 = 0             then                   writeln('число делится на 6')             else                   writeln('число не делится на 6');       readln; end. program z; var       a,b: integer; begin       writeln('введите число a'); readln(a);       writeln('введите число b'); readln(b);       if b mod a = 0             then writeln('число а делится нацело на число в')             else writeln('число а не делится нацело на число b');       readln; end.

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin   var m: =readinteger('количество строк в массиве: ');   var n: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',m,',',n,'] ***');   var a: =matrrandom(m,n,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var k: =readinteger('номер столбца для подсчета суммы: ');   writeln('s=',a.col(k-1).sum) end. пример количество строк в массиве: 5 количество столбцов в массиве: 8 *** исходный массив [5,8] ***   91 -39  49  29 -60 -58 -88  -5   -80  -5  58  38 -75 -76 -54 -33   -60 -66  98 -88  96 -48  94    2   -4  81 -38 -91  26 -91  32    7   30  83  30    3  22  93  31    0 номер столбца для подсчета суммы: 4 s=-109 на случай, если я неверно понял и нужна сумма по каждой колонке: begin   var m: =readinteger('количество строк в массиве: ');   var n: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',m,',',n,'] ***');   var a: =matrrandom(m,n,-99,99);   a.println(4); writeln(4*a.colcount*'-');   a.cols.select(s-> s.sum).println end. пример количество строк в массиве: 4 количество столбцов в массиве: 7 *** исходный массив [4,7] ***   13 -14  82  88 -38  55  89   11  74 -35  85  13  27 -80   -88  76 -64 -88 -50  28 -13   90  87 -71 -94 -59  95 -83 26 223 -88 -9 -134 205 -87