Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза? i:=1; while i<=... do begin writeln('Привет!'); i:=i+1 end; Во Сколько раз будет выполнен этот цикл? i:=2; while i<5 do begin writeln('Привет!'); i:=i+1 end; Во Какое число будет выведено на экран в результате выполнения этого цикла? i:=5; write('9'); while i<5 do begin write(i); i:=i+1 end; Во Чему будет равно значение переменной a после выполнения этого цикла? i:=4; a:=12; while i<6 do begin a:=a+i; i:=i+1 end; Во Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза? i:=...; while i<=5 do begin writeln('Привет!'); i:=i+1 end;

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

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

Pascalabc.net 3.4.0, сборка 1675 от 12.06.2018 внимание! если программа не работает, обновите версию! procedure println(self: array of real); extensionmethod; begin   self.batch(5).foreach(s->           begin foreach var p in s do write(p: 15: 10); writeln end);   writeln(min(15*(self.count div 2),38)*'- ') end; begin   var m: =arrgen(readinteger('n='),i-> cos(i),1); m.println;   var (a,b): =readreal2('введите границы a b: ');   writeln('число элементов на интервале [',a,',',b,'] равно ',       m.where(t-> t.between(a,);   write('сумма элементов, расположенных после максимального, равна ');   var imax: =m.indexmax;   (m? [imax+1: ].sum).println;   writeln('элементы, по убыванию модулей');   m: =m.orderbydescending(t-> abs(; m.println; end.