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

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.