Сделать отчёт по информатике на тему способы построения диаграмм ​

Первый алгоритм: const   n=30; var   a: array[1..30] of integer;   s: longint;   i: integer; begin   { формируем массив }   randomize;   writeln('элементы массива: ');   for i: =1 to n do   begin a[i]: =random(51)-25; write(a[i]: 4) end;   writeln;   { собственно, алгоритм }   s: =a[1]*a[2]; i: =3;   while i< =n-1 do   begin s: =s+a[i]*a[i+1]; i: =i+2 end;   writeln('сумма пар произведений равна ',s) end. тестовое решение: элементы массива:     1  10  -9 -12  -2  20  21  14    5  19  21 -14 -10 -17    5  -9  -8  17  18  11 -21  -3 -15 -10 -15 -16 -15    2    3  21 сумма пар произведений равна 846 второй алгоритм const   n=30; var   a: array[1..30] of integer;   smax,imax: longint;   i: integer; begin   { формируем массив }   randomize;   writeln('элементы массива: ');   for i: =1 to n do   begin a[i]: =random(51)-25; write(a[i]: 4) end;   writeln;   { собственно, алгоритм }   smax: =a[1]+a[2]; imax: =1;   for i: =2 to n-1 do       if smax< a[i]+a[i+1] then       begin smax: =a[i]+a[i+1]; imax: =i end;   writeln('номер первого из пары элементов с максимальной суммой: ',imax) end. тестовое решение: элементы массива:   23  13 -11  -1 -18  20 -23    1 -21 -10    7  15  -2  24 -18 -22 -13  12 -16  22  19 -14 -14 -14  19  15    8 -15 -19 -22 номер первого из пары элементов с максимальной суммой: 20