Для чого призначена програма publisher?

Для создания рекламы приглашений и т.д

Программа  publisher - для создания и обмена  различными маркетинговыми и рекламными

Program p1; var a: array [1..50] of integer; {переменная а - одномерный массив в 50 элементов}; s, i  : integer; {переменная s - сумма элементов, i - счетчик цикла}  begin randomize; {включаем генератор случайных чисел}; s: =0;   {обнуляем значение суммы} for i: =1 to 50 do   {цикл в 50 повторений} begin a[i]: =random(201) - 100; {формируем 50 элементов массива случайным образом в интервале [-100; 100]} s: =s+a[i];   {добавляем каждый элемент к значению суммы} end; wrilteln('сумма всех элементов  ', s); {выводим значение суммы} end;

Program summa;   var n, i,  sum: integer;         sr: real;   begin     sum: =0;     sr: =0;     for i: =5 downto 1 do       begin       writeln('vvedite chislo');       readln(n);       sum: =sum+n;       end;     sr: =sum/5;   writeln('summa ravna = ' , sum);   writeln('srednee znachenie = ' , sr); end.