Составьте программу в паскале abc. Дано количество инфы в битах. Вывести

Для перевода количество бит в байты необходимо разделить на 8 в данном образце:
10240/8=1280 байт.
1 Кбайт=1024 б, тогда получаем:
1280/1024=1,25 Кбайт
С мб подобно 1 Мбайт=1024 Кбайт:
1,25/1024=0,0012 Мб

var
M:integer, /число бит/
R:real; /число б, Кбайт, Мбайт/
begin
R:=M/8;
R:=R/1024;
R:=R/1024;

end.