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

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.