1. лицензионное по 2. условно-бесплатное по 3. свободно-распространяемое по нужны определения этих трех названий.

1  это правовой инструмент, определяющий использование и распространение  по, защищённого авторским правом 2 свободно распространяемое  по , с возмездным (или возмездным при определенных условиях) использованием.3свободный софт   —по , пользователи которого имеют права («свободы») на его неограниченную установку, запуск, а также свободное использование, изучение, распространение и изменение (совершенствование), и распространение копий и результатов изменения

// использование указателей для создания односвязного списка // сделано на базе демонстрационного примера pascalabc.net // // pascalabc.net 3.2, сборка 1325 от 19.10.2016 type   pnode=^tnode;   tnode=record       data: integer;       next: pnode;   end; function newnode(d: integer; n: pnode): pnode; begin   new(result);   result^.data: =d;   result^.next: =n; end; procedure writenode(a: pnode); // вывод односвязного списка begin   writeln('содержимое односвязного списка: ');   var p: =a;   while p< > nil do begin       write(p^.data,' ');       p: =p^.next;       end;   writeln end; function seeknode(k: integer; a: pnode): pnode; // поиск элемента со значением k в списке begin   var p: =a;   result: =nil;   while p< > nil do begin       if p^.data=k then begin result: =p; break end;       p: =p^.next       end end; function prednode(a,f: pnode): pnode; // поиск предшественника f среди a begin   var p: =a;   while p^.next< > f do p: =p^.next;   result: =p end; procedure clear(a: pnode); // разрушение односвязного списка begin   var p: =a;   while p< > nil do begin       var p1: =p;       p: =p^.next;       dispose(p1); // память обязательно возвращать       end end; var   first,found,father,grandfather,greatgrandfather: pnode;   begin   randomize;   first: =nil;   for var i: =1 to 10 do       first: =newnode(random(100),first);   writenode(first); // первоначальное состояние списка   var k: =readinteger('введите число для поиска в списке');   found: =seeknode(k,first);   if found< > nil then begin       father: =prednode(first,found); // отец       grandfather: =prednode(first,father); // дед       greatgrandfather: =prednode(first,grandfather); // прадед       greatgrandfather^.next: =father;       writeln('элемент ',grandfather^.data, ' удален');       dispose(grandfather);       writenode(first);       k: =readinteger('введите число для вставки');       father^.next: =newnode(k,found);       writenode(first);       end   else writeln('такого числа в списке нет');   clear(first) end.   пример содержимое односвязного списка: 11 75 44 86 88 83 92 18 4 23 введите число для поиска в списке 88 элемент 44 удален содержимое односвязного списка: 11 75 86 88 83 92 18 4 23 введите число для вставки 40 содержимое односвязного списка: 11 75 86 40 88 83 92 18 4 23

1) const n=10; var a: array[1..n] of real; i: integer; s: real; begin randomize; for i: =1 to n do   begin   a[i]: =10*random-5;   write(a[i]: 6: 2);   end; writeln; s: =0; for i: =1 to n do   if a[i]> 0 then s: =s+a[i]; writeln('s = ',s: 5: 2); end. пример:   1.17   3.93 -4.82 -0.13 -2.56   2.28 -2.92   4.73 -1.67 -0.64 s = 12.11 2) const n=10; var a: array[1..n] of real; i: integer; s: real; begin randomize; for i: =1 to n do   begin   a[i]: =random+2;   write(a[i]: 6: 2);   end; writeln; s: =0; for i: =1 to n do s: =s+a[i]; writeln('среднее = ',s/n: 5: 2); end. пример:   2.13   2.45   2.68   2.32   2.59   2.36   2.36   2.21   2.51   2.83 среднее =   2.44