Судя по всему Вы пытаетесь применить операцию mod к целому числу
Если я правильно посчитала, то ответ 4
Var A, B, C: real;
begin
writeln('введите два числа');
readln (A, B);
C: = A * B;
writeln ('Произведение введенных Вами чисел равно' , C);
<span>end.</span>
0,5 байт = 0,5*8 бит = 4 бита
Количество информации в сообщении = 300*4 бит = 1200 бит
А перевода на русский нет случаянно?