Составьте программу в паскале abc. Дано количество информации в битах. Вывести в удобной форме в более крупных единицах. (до Мб). Пример вывода: 10240 бит = 1280 байт = 1,25 Кб = 0,0012 Мб. Прошу помогите с формулами хотябы

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 Тб