Для начала нужно отформатировать каждый заголовок, который Вы хотите, чтобы был в Оглавлении, с автостилей. Для этого заходим на вкладку "главная", далее панель "стили", выделяем нужный заголовок и нажимаем "Заголовок 1", так делает с каждым заголовком по всему тексту. Если вам нужен подпункт в оглавлении, то тогда выделяем его и там же в панели "стили" выбираем "Заголовок 2". Аналогично можно сделать ещё подпункты, выбрав "Заголовок 3".
Когда Вы сделаете так со всеми заголовками, дальше можно создавать оглавление. Устанавливаем курсор, где хотим, чтобы было оглавление. Если для оглавления вам нужная отдельная страница, то вставляем разрыв до и после оглавления (Ctrl+Enter). После этого переходим во вкладку "ссылки", дальше слева в группе "оглавление" выбираем "Автособираемое оглавление 1". После этого будет создано оглавление на основе ваших выделенных заголовков. Каждый из заголовков будет снабжён отбивкой из точек, после них будет стоять номер страницы (если он есть), на которой этот заголовок находится.
Для того, чтобы менять шрифт и размер заголовков нужно в панели "стиль" выбрать наиболее подходящий Вам. В будущем можно будет обновлять оглавление. Для этого надо перейти на страницу с оглавлением, навести курсор и нажать "обновить таблицы", выбрать "обновить целиком".
Указатель устанавливается по желанию для того, чтобы, нажимая на необходимый заголовок, переходить по ссылке на его содержание (если Вы будете распечатывать документ, то он точно не понадобится). Для того, чтобы сделать указание нужно выбрать текст, который будет элементом предметного указателя. Дальше на вкладке "ссылки", группа "предметный указатель" нажать "пометить элемент" и снова "пометить". После того как пометите все элементы (например, пункты или главы) выбираете место, где будет указатель, далее "ссылки", группа "предметный указатель" и команда "предметный указатель". Дальше выбираем нужный формат, номера страниц и нажимаем "ок". Предметный указатель будет готов.
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End.
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами