Создайте объявление, используя графический шрифт. Текст и таблицу вставьте в надпись. + 2 задание

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

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

1)            находим количество пикселей, используя для вычисления степени числа 2: n  = 512 · 256 = 29  · 28  = 217 2)            объём файла в  кбайтах  64 = 26 3)            объём файла в битах  26    · 213  = 219 4)            глубина кодирования (количество битов, выделяемых на 1 пиксель): 219  :   217  = 22  = 4 бита на пиксель 5)            максимальное возможное количество  цветов 24  = 16 6)            ответ:   16.