Бщие параметры Общие параметрыі
Параметры шифрования для данного документа
пароль для открытия файла:
Параметры совместного использования для данного документа
пароль разрешения записи:
рекомендовать доступ только для чтения
Установлять защиту.н
Защита от макросов
Изменение уровня безопасности при открытии файлов,
которые могут содержать вирусы в макросах, и указание
надежных разработчиков макросов,
Защита от такросов.
ОК
Отмена
установка пароля при сохранении
документа
установка пароля при создании архива
установка пароля при проверке файлов
на наличие вирусов
установка пароля при создании папки​

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

Var
  i, k: longint;
  s: real;

begin
  writeln('Введите количество членов последовательности k');
  readln(k);
  s := 20;
  for i := 1 to k do
    s := s + 1 / (i * k);
  writeln('Сумма последовательности равна ', s)
end.

Тестовый пример:

Введите количество членов последовательности k
10
Сумма последовательности равна 20.2928968253968

Варианты, дающие те же результаты:
var
  i, k: longint;
  s: real;

begin
  writeln('Введите количество членов последовательности k');
  readln(k);
  s := 20;
  i:=1;
  while i<=k do begin
    s := s + 1 / (i * k);
    i:=i+1
    end;
  writeln('Сумма последовательности равна ', s)
end.

var
  i, k: longint;
  s: real;

begin
  writeln('Введите количестко членов последовательности k');
  readln(k);
  s := 20;
  i:=1;
  repeat
    s := s + 1 / (i * k);
    i:=i+1
  until i>k;
  writeln('Сумма последовательности равна ', s)
end.