Законы, указы, постановления об авторском праве на книгу; программный продукт; картину; песню?

Для целей настоящего закона указанные ниже термины имеют следующее значение:   автор - лицо, творческим трудом которого создано произведение;   аудиовизуальное произведение - произведение, состоящее из зафиксированной серии связанных между собой кадров (с сопровождением или без сопровождения их звуком), предназначенное для зрительного и слухового (в случае сопровождения звуком) восприятия с соответствующих технических устройств; аудиовизуальные произведения включают кинематографические произведения и все произведения, выраженные средствами, аналогичными кинематографическим (теле- и видеофильмы, диафильмы и слайдфильмы и тому подобные произведения), независимо от способа их первоначальной или последующей фиксации;   база данных - объективная форма представления и организации совокупности данных (статей, расчетов и так далее), систематизированных таким образом, чтобы эти данные могли быть найдены и обработаны с компьютера;   воспроизведение произведения - изготовление одного или более экземпляров произведения или его части в любой материальной форме, в том числе в форме звуко- и видеозаписи, изготовление в трех измерениях одного или более экземпляров двухмерного произведения и в двух измерениях - одного или более экземпляров трехмерного произведения; запись произведения в память компьютера также является воспроизведением;   воспроизведение фонограммы - изготовление одного или более экземпляров фонограммы или ее части на любом материальном носителе;   запись - фиксация звуков и (или) изображений с технических средств в какой-либо материальной форме, позволяющей осуществлять их неоднократное восприятие, воспроизведение или сообщение.

N- количество чисел в последовательности, i - для организации цикла for, x - очередное число из последовательности в начале задаем значение max = 0, потому что рассматриваем последовательность натуральных чисел ( 1 и больше), то есть первое же натуральное четное будет записано в max в конце выводим ьфч только если он не равен нулю, тоесть в последовательности было натуральное четное число! program z1; var n, i, x, max: integer; beginmax : = 0; readln(n); for i : = 1 to n dobegin    read(x);     if (x mod 2 = 0) and (x > max) then max : = x; end; if max > 0 then writeln(max) else writeln ('не таких чисел'); end.

Var     s: string;     i,k: integer; begin k: =0; write('введите строку: '); readln(s); for i: = 1 to length(s)-2 do       if s[i]='d' then             if s[i+1]='o' then                   if s[i+2]='g' then                         begin                         s[i]: ='c';                         s[i+1]: ='a';                         s[i+2]: ='t';                         end; writeln('новая строка: ',s); end.