Решить задачу в Паскале

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

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.