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
А вобще применять битовое определение символов как подсчет кол-ва информации перерабатываемой человеком - в корне не верно