Написать, как будет выглядеть описание переменных для решения : ёмкость носителя информации задана в байтах. перевести это значение в килобайты и мегабайты.

Var B:integer; // B - байты
begin
  readln(B);
  writeln(B,' байт =',b/1024 ' Кбайт = ',b/1024/1024, ' Мбайт');
end.