Сделать график функций в Excel

//Pascal ABC.NET v3.1 сборка 1172

Var
 ar:array[1..15] of integer;
 i,k1,k2:integer;
 r1,r2:real;
begin
 randomize;
 writeln('Array:');
 for i:=1 to 15 do
  begin
   ar[i]:=random(-20,20);
   write(ar[i]:4);
   if i mod 2=0 then
    begin
     inc(k1);
     r1:=r1+ar[i];
    end;
   if ar[i]>0 then
    begin
     inc(k2);
     r2:=r2+k2;
    end;
  end;
 r1:=r1/k1;
 r2:=r2/k2;
 writeln;
 if r1>r2 then writeln('Среднее арифметическое элементов стоящих на четных местах');
 if r1<r2 then writeln('Cреднее арифметическое положительных элементов массива');
 if r1=r2 then writeln('Равно');
end.
 

В формулировке ошибка - не for i:-1 to 5 do, а for i:=1 to 5 do.
Теперь к заданию.
Цикл повторяется 5 раз, значит счётчик i будет иметь значение 1 на первом шаге, 2 на втором, 3 на третьем, 4 на четвёртом и 5 на пятом.
В цикле мы обращаемся к элементу одномерного массива b, чей индекс равен i, то есть на первом шаге мы обратимся к первому элементу массива, на втором - ко второму и так далее.
По формуле: 2*i+i. Опять же видим, что тут фигурирует наш счётчик цикла i, из чего следует что для первого шага первому элементу массива будет присвоено значение 2*1+1=3. Для пятого элемента массива значение будет равно 2*5+5=15.
После выхода из цикла мы запрашивается вывод пятого элемента массива b, значение которого задано в цикле и равно 15.
ответ: 15