1)Текст занимает на жестком диске 12 кбайт памяти и содержит 6144 символа, в какой кодировке представлен этот текст? 2) Электронная книга в 211 страниц, на странице в среднем 37 строк по 68 символов в каждой. Какой объем занимает книга, если в кодировке, с которой записан текст 256 символов? ответ дать в мегабайтах.

3) по картинке определить информационный объем текста, если у нас кодировка Unicode?

Вопрос поставлен не корректно. Сам тип файла никак влиять на нарушение авторского права не может.
Авторское право можно нарушить используя либо программы и приложения типа Commercialware  не приобретая на них лицензию, а использую пиратские версии, либо скачивая в сети интернет информацию, защищенную авторским правом и распространяемую без согласия автора, и нарушая действующее законодательство.

В целом все очень просто : используйте ПО имеющее лицензию Freeware или покупайте лицензию на платное ПО (сам например пользуюсь только Freeware ПО - вместо Microsoft Office использую OpenOffice, вместо Adobe Reader использую FoxitReader, вместо Winrar использую 7Zip и так далее..., а Windows 7 лицензия предустановленная фирмой). 
Что касается мультимедийной информации - не качайте пиратки с торрентов, а покупайте лицензионные диски (нужно же как-то отблагодарить создателей любимого вашего фильма или любимого исполнителя музыки). Тогда ничего нарушать и не будете.

Const n=15;
Var a:array[1..n]  of integer;
i,indx,k,tr,indxx:integer;
Begin 
Randomize; 
 For i:=1 to n do  begin
  A[i]:=Random(40)-20; 
 Write(a[i],' '); 
   end; 
       Writeln; 
   write('0 имеет номер: '); 
     For i:=1 to n do   
Begin
 If A[i]=0 thenwrite(i);
 end;
Writeln;
indx:=0; 
 For i:=1 to n do 
  Begin
   If a[i] mod 2=0 then 
  begin 
  indx += 1; 
 a[indx]:=a[i]; 
  end; 
 end; 
    Write('Индекс четных элементов: '); 
 For i:=1 to indx do 
 write(a[i],' ');   
   For i:=1 to n do
    Begin 
   If A[i]<0 then
      Begin   
  inc(k);      
 end;      
   end;   
 Writeln;
 Writeln('Кoличество отрицательных элементов: ',k);
 For i:=1 to n do
  Begin 
 If A[i] mod 3=0 then 
 tr:=a[i];
  end; 
 Writeln('Кратное трем ',tr); 
   indxx:=0; 
 writeln('Индексы кратны 3: '); 
  For i:=1 to n do 
  Begin 
  If a[i] mod 3=0 then 
  begin   
   indxx += 1; 
 a[indxx]:=a[i];
   write(' ',a[i]); 
    end;   
 end;    
  end.