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

Var
  n:integer;
begin
  read(n);
  write(n, бит = , n/8, байт = , n/8192:0:2, Кб = ,n/(8*sqr(1024)):0:4, Мб);
end.

Альтернативное решение:

var
  n: integer;
  b, kb, mb: real;
begin
  read(n);
  b := n / 8;
  kb := b / 1024;
  mb := kb / 1024;
  write(n, бит = , b:0, байт = , kb:0:2, Кб = , mb:0:4, Мб);
end.