1,5Тб = 15000000000Кб значит 15000000000Кб-1= 14999999999
В модуле CRT есть процедура, которая устанавливает цвет текста: TextColor(Цвет)
В качестве цвета служат числа от 0 до 15, либо константы (Green, Red и т.п.)
Пример:
uses crt;
begin
TextColor(LightGreen);
writeln('Цветной текст')
<span>end.</span>
Ответ: криптография, я полагаю
256000 бит/с * 120 = 30720000 бит = 3840000 байт = 3750 кбайт