Var
  b:real;
begin
  Write('Количество информации в битах '); Read(b);
  Write(b,' бит = ');
  b:=b/8; Write(b,' б = ');
  b:=b/1024; Write(b,' Кб = ');
  b:=b/1024; Write(b,' Мб = ');
  b:=b/1024; Write(b,' Гб = ');
  b:=b/1024; Write(b,' Тб')
end.

Пример
Количество информации в битах 10240
10240 бит = 1280 б = 1.25 Кб = 0.001220703125 Мб = 1.19209289550781E-06 Гб = 1.16415321826935E-09 Тб

Var b:integer; 
begin
write('Введите количество бит: ');
readln(b);
write(b,' бит = ',b/8,' байт = ');
writeln(b/8/1024,' Кбайт = ',b/8/1024/1024:6:4,' Мбайт');
end.

Пример:
Введите количество бит: 10240
10240 бит = 1280 байт = 1.25 Кбайт = 0.0012 Мбайт