Как подсчитать количество выведенных символов? - Pascal

Формулировка задачи:

Программа выводит числа. Как подсчитать их количество?

Решение задачи: «Как подсчитать количество выведенных символов?»

Листинг программы

. . .
  count := 0;
. . .
  for i := 1 to n do
    Write(#32, i, #32, f(i));
  inc(count, n*2); // i - (1)  f(i) - (2)
. . .

Объяснение кода листинга программы

Переменная count инициализируется значением 0.
В цикле от 1 до n происходит запись в файл (или вывод на экран) значения переменной i и значения функции f(i) (возможно, это какая-то константа или результат вычислений).
К переменной count прибавляется значение n*2, возможно, это счётчик количества выведенных символов (включая пробелы).
Функция inc увеличивает значение переменной count на 1.
Значение переменной n умножается на 2.
Значение переменной i используется как счётчик в цикле.
Значение функции f(i) выводится на экран или записывается в файл.
Значение переменной count увеличивается на значение n*2.
Значение переменной n используется как счётчик в цикле.
Значение переменной i используется как счётчик в цикле.
Значение функции f(i) выводится на экран или записывается в файл.
Значение переменной count увеличивается на значение n*2.
Значение переменной n используется как счётчик в цикле.
Значение переменной i используется как счётчик в цикле.
Значение функции f(i) выводится на экран или записывается в файл.
Значение переменной count увеличивается на значение n*2.
Значение переменной n используется как счётчик в цикле.
Значение переменной i используется как счётчик в цикле.
Значение функции f(i) выводится на экран или записывается в файл.
Значение переменной count увеличивается на значение n*2.