По какому признаку Word «отбирает» заголовки для оглавления?

uses crt; var

  i,s1,s2: integer; begin  for i: =1 to 100 do  begin    if i mod 2=0 then s1: =s1+i    else s2: =s2+i;   end;   writeln('сумма четных чисел: ',s1);   write('сумма нечетных чисел:   ',s2); end.

сначала плывут 2 мальчика, один остается там, а второй возвращается. мальчик остается на берегу, а на другой берег плывет один солдат. он остается там, а сюда приплывает обратно мальчик. опять плывут 2 мальчика, опять один остается, а другой возвращается с лодкой. плывет второй солдат, а с лодкой возвращается второй мальчик. солдаты на том берегу, а мальчики и лодка - на этом. вуаля!

program ttt; var i,j,a,b,c: integer; beginreadln(a); readln(b); readln(c); if (a> b) then if (a> c) then begin write(a); if (b> c) then begin write(b); write(c) end; else begin write(c); write(b); endend; elseif (b> c) then begin write (b); if(a> c)then begin write(a); write(c); end; else begin write(c); write(a); end; end; else begin write(c); if(a> b) then begin write(a); write(b)end; else begin write(b); write(a); end; end; end; неоптимальный, но понятный алгоритм.а в другом случае можноо оптимизировать.. как- подумай -; )

линейный (следования)

разветвляющийся (развилка)

циклический