Создать электронную книгу (тема на ваше усмотрение) В проекте должно быть:
1. Титульный лист
2. Оглавление ( с гиперссылками)
3. Нумерация страниц
4. Список использованных источников
ответьте

Var
    capacity: real;

begin
    capacity := 4 * 160 * 60;
    writeln('Слов за 4 часа = ', capacity);
    {пробелы тогда тоже считаем}
    capacity := capacity * (6 + 1);
    writeln('Символов за 4 часа = ', capacity);
    capacity := capacity;
    writeln('Байт за 4 часа = ', capacity);
    capacity := capacity / 1024;
    writeln('Кбайт за 4 часа = ', capacity);
end.

Вывод
Слов за 4 часа = 38400
Символов за 4 часа = 268800
Байт за 4 часа = 268800
Кбайт за 4 часа = 262.5

А вобще применять битовое определение символов как подсчет кол-ва информации перерабатываемой человеком - в корне не верно

В начале в строке находилось 333 троек по 8 плюс одна 8, всего 1000 восьмерок.
1. При выполнения цикла каждая из троек 8 будет заменена на одну 9. Значит у нас получится строка длиной в 334 символа, где 333 девятки и последний символ - восьмерка
2. Далее 333 девятки заменятся на 111 восьмерок плюс последняя восьмерка - всего получим 112 восьмерок
3. Из 112 восьмерок получится 37 девяток и одна восьмерка
4. И 37 девяток получим 12 восьмерок плюс одна девятка и плюс последняя восьмерка
5. 12 восьмерок дадут 4 девятки плюс последние 9 и 8
6. И наконец получаем строку 8998
ответ: 8998