Не уверен, правильно ли вас понял. Если что, пишите.
В 16-символьном алфавите на один символ требуется log(2)16=4 бит.
На все сообщение: 2*16*12*4 бит = 16*12 байт = 16*12/1024 Кбайт=0,1875 Кбайт
Во вложении
--------------------------------
program raf105;
var
a,b,c,sum,pro: real;
begin
write('Введите 3 вещественных числа: ');
readln(a,b,c);
sum:= a+b+c;
pro:= a*b*c;
if sum > pro
then writeln('Сумма больше произведения')
else if pro > sum
then writeln('Произведение больше суммы')
else writeln('Сумма и произведение равны');
end.
<h3><u>PascalABC 3.4.2</u></h3>