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

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.