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

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