сделать конспект по теме понятие об авторском праве и плагиате​

автор это когда он создаёт ну например ты создал песню и автор песни ты а если ты скопировал кого-то песню то ты плогиат понятно

1. Примерно вот так почему-то учат писать в школе...

program Schoolar;

var
  i,j,n:integer;

begin
  Write('n = '); Readln(n);
  for i:=1 to n do begin
    for j:=1 to 50 do
      if j mod 2 = 0 then Write(j,' ');
    Writeln
    end
end.

Пример
n = 3
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50

2. Примерно вот так рекомендуют делать эту задачу современные концепции программирования...

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  Loop ReadInteger('n =') do Range(2,50,2).Println
end.

Результат
n = 3
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50

Const n=10;
var i,j,k,mx,ind: integer;
    a: array[1..n] of integer;
begin
  writeln('исходный массив:');
  randomize;
  mx:=0;
  for i:=1 to n do
  begin
    a[i]:=random(2*n)-n;
    write(a[i],' ');
    if a[i]>mx then
    begin
      mx:=a[i];
      ind:=i;
    end;  
  end;
  writeln;
  for i:=ind+1 to n-1 do
  for j:=i+1 to n do
    if a[i]>a[j] then
    begin
       k:=a[i];
       a[i]:=a[j];   
       a[j]:=k;
    end;
  writeln('новый массив:');  
  for i:=1 to n do write(a[i],' ');
end.

исходный массив:
3 7 7 5 5 -2 -8 -9 -8 6 
новый массив:
3 7 -9 -8 -8 -2 5 5 6 7