), которая с клавиатуры позволяет ввести количество информации в битах. В результате нужно получить количество информации вмегабайтах,килобайтах, байтах и битах.​

Попросили бы переписать...

program vld;

var

a :integer;

 begin

readln(a);

writeln(a, ' бит = ', a/8, ' байт');

writeln(a, ' бит = ', a/8/1024, ' Кбайт');

writeln(a, ' бит = ', a/8/1024/1024, ' Мбайт');

 end.