Как можно зафиксировать свое авторское право на программный продукт?

Обратясь к юристу   или в патентное бюро.

Var a: array[1..5,1..5] of integer; i,j: integer; begin writeln('исходный массив: '); for i: = 1 to 5 do       begin       for j: = 1 to 5 do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 3,' ')               end;       writeln       end; writeln; for i: = 1 to 5 do       begin       for j: = 1 to 5 do               begin               if (j> i) then a[i,j]: =3               else if (j< i) then a[i,j]: =0                         else a[i,j]: =7;               write(a[i,j]: 3,' ')               end;       writeln;       end; end.

Const n = 21; var     a: array[1..n] of integer;     i,k: integer;     s: real; begin randomize; s: =0; k: =0; write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(80)-44;       write(a[i],' ');       if a[i]< =12 then             begin             s: =s+a[i];             k: =k+1             end;       end; writeln; writeln('sr = ',s/k) end.