Можете какую формулу нужно поставить в расход чтобы посчитать его.

Для начала нужно отформатировать каждый заголовок, который Вы хотите, чтобы был в Оглавлении, с автостилей. Для этого заходим на вкладку "главная", далее панель "стили", выделяем нужный заголовок и нажимаем "Заголовок 1", так делает с каждым заголовком по всему тексту. Если вам нужен подпункт в оглавлении, то тогда выделяем его и там же в панели "стили" выбираем "Заголовок 2". Аналогично можно сделать ещё подпункты, выбрав "Заголовок 3".

Когда Вы сделаете так со всеми заголовками, дальше можно создавать оглавление. Устанавливаем курсор, где хотим, чтобы было оглавление. Если для оглавления вам нужная отдельная страница, то вставляем разрыв до и после оглавления (Ctrl+Enter). После этого переходим во вкладку "ссылки", дальше слева в группе "оглавление" выбираем "Автособираемое оглавление 1". После этого будет создано оглавление на основе ваших выделенных заголовков. Каждый из заголовков будет снабжён отбивкой из точек, после них будет стоять номер страницы (если он есть), на которой этот заголовок находится.

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

Указатель устанавливается по желанию для того, чтобы, нажимая на необходимый заголовок, переходить по ссылке на его содержание (если Вы будете распечатывать документ, то он точно не понадобится). Для того, чтобы сделать указание нужно выбрать текст, который будет элементом предметного указателя. Дальше на вкладке "ссылки", группа "предметный указатель" нажать "пометить элемент" и снова "пометить". После того как пометите все элементы (например, пункты или главы) выбираете место, где будет указатель, далее "ссылки", группа "предметный указатель" и команда "предметный указатель". Дальше выбираем нужный формат, номера страниц и нажимаем "ок". Предметный указатель будет готов.

Uses Crt;
  const n=5; m=7;
  type Mas = array [1..n, 1..m] of integer;
  var i, j, j1, j2: integer;
      Sumj1, Sumj2: real;
      A: Mas;
begin
 ClrScr;
 Randomize;
 SumJ1:=0; SumJ2:=0;
 for i:=1 to n do
    for j:=1 to m do
    A[i,j]:=random (10);
 WriteLn (' Massiv A: ');
 for i:=1 to n do
   begin
      for j:=1 to m do
      Write (A[i,j]:4);
      WriteLn;
   end; WriteLn;
 repeat
   Write (' Stolbez #1 = ');    ReadLn(j1);
 until (j1>=1) and (j1<=m);
 repeat
   Write (' Stolbez #2 = '); ReadLn(j2);
 until (j2>=1) and (j2<=m) and (j1<>j2);
 for i:= 1 to n do
    SumJ1 := SumJ1+A[i,j1];
 for i:= 1 to n do
   SumJ2:=SumJ2+A[i,j2];
 SumJ1:=SumJ1/n; SumJ2:=SumJ2/n; 
WriteLn;
WriteLn (' Srednee stolbza ', j1, ' = ', SumJ1:4:2);
WriteLn (' Srednee stolbza ', j2, ' = ', SumJ2:4:2); 
ReadLn;
end.