Составьте программу в паскале 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.ПримерКоличество информации в битах 1024010240 бит = 1280 б = 1.25 Кб = 0.001220703125 Мб = 1.19209289550781E-06 Гб = 1.16415321826935E-09 Тб

var b:integer; beginwrite('Введите количество бит: ');readln(b);write(b,' бит = ',b/8,' байт = ');writeln(b/8/1024,' Кбайт = ',b/8/1024/1024:6:4,' Мбайт');end.Пример:Введите количество бит: 1024010240 бит = 1280 байт = 1.25 Кбайт = 0.0012 Мбайт