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.