Составьте программу в паскале 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 Тб

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 Мбайт