Попросили бы переписать...
program vld;
var
a :integer;
begin
readln(a);
writeln(a, ' бит = ', a/8, ' байт');
writeln(a, ' бит = ', a/8/1024, ' Кбайт');
writeln(a, ' бит = ', a/8/1024/1024, ' Мбайт');
end.
