Решить задачу в Паскале Перевести заданное количество байтов в биты, килобайты,…

Program Calculator; var b, kb, mb, bt: real; begin write ('Введите количество байтов: '); readln (b); {bytes} kb: =b/ (1 shl 10); {kbytes} mb: =b/ (1 shl 20); {mbytes} bt: =b*8; {bits} writeln (bt: 1:2, ' — битов ',kb: 1:2, ' — килобайтов ',mb: 1:2, '- мегабайтов '); end.