Сколько бит информации содержится в сообщении "пять мегабайт"

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.

((1+2): 3+4): 5=1

1+2+3-4+5-6=1

(1+2+3+4): 5+6-7=1

(1+2+3-4+5-6+7): 8=1

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n

восемь бит - как раз 256 ячеек